/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / mail / newNET.lha / newnet / newNET

< prev

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 03 f3 00 00 00 00 | 00 00 00 02 00 00 00 00 |........|........|
|00000010| 00 00 00 01 00 00 00 6f | 00 00 25 a9 00 00 03 e9 |.......o|..%.....|
|00000020| 00 00 00 6f 48 e7 3f 3e | 24 00 26 48 28 4f 20 02 |...oH.?>|$.&H(O .|
|00000030| 5e 40 02 80 ff ff ff fe | 9f c0 24 4f 22 4a 20 0b |^@......|..$O"J .|
|00000040| 67 20 70 20 72 09 74 0a | 16 1b 67 16 b6 02 67 12 |g p r.t.|..g...g.|
|00000050| b6 00 67 f4 b6 01 67 f0 | 12 c3 16 1b 67 04 b6 02 |..g...g.|....g...|
|00000060| 66 f6 42 11 b5 c9 67 08 | b0 21 67 f6 b2 11 67 f2 |f.B...g.|.!g...g.|
|00000070| 7e 14 2c 78 00 04 61 00 | 00 de 4a 80 67 00 00 aa |~.,x..a.|..J.g...|
|00000080| 2a 40 43 f9 00 00 01 1a | 4e ae fe 7a 4a 80 67 00 |*@C.....|N..zJ.g.|
|00000090| 00 92 43 f9 00 00 01 1f | 70 00 4e ae fd d8 4a 80 |..C.....|p.N...J.|
|000000a0| 67 00 00 80 2c 00 cd 8e | 20 4d 93 c9 70 00 4e ae |g...,...| M..p.N.|
|000000b0| ff 70 67 68 26 48 27 7c | 00 00 00 00 00 28 27 4a |.pgh&H'||.....('J|
|000000c0| 00 2c 70 02 72 00 4e ae | ff 5e 67 46 cd 8e 27 7c |.,p.r.N.|.^gF..'||
|000000d0| 02 04 00 01 00 1c 4e ae | ff 7c 43 f9 00 00 01 1a |......N.|.|C.....|
|000000e0| 4e ae fe 7a 2a 00 67 08 | 20 40 22 4b 4e ae fe 92 |N..z*.g.| @"KN...|
|000000f0| 4e ae ff 76 4a 85 67 0e | 20 4d 4e ae fe 80 20 4d |N..vJ.g.| MN... M|
|00000100| 4e ae fe 8c 7e 00 cd 8e | 20 4b 70 02 4e ae ff 64 |N...~...| Kp.N..d|
|00000110| cd 8e cd 8e 20 4b 4e ae | ff 6a cd 8e 22 46 4e ae |.... KN.|.j.."FN.|
|00000120| fe 62 20 4d 61 00 00 8c | 20 07 2e 4c 4c df 7c fc |.b Ma...| ..LL.|.|
|00000130| 4e 75 00 00 00 00 00 00 | 00 00 00 00 00 00 52 45 |Nu......|......RE|
|00000140| 58 58 00 72 65 78 78 73 | 79 73 6c 69 62 2e 6c 69 |XX.rexxs|yslib.li|
|00000150| 62 72 61 72 79 00 48 e7 | 20 22 2c 78 00 04 70 ff |brary.H.| ",x..p.|
|00000160| 4e ae fe b6 74 ff b4 00 | 67 40 24 00 70 22 22 3c |N...t...|g@$.p""<|
|00000170| 00 01 00 01 4e ae ff 3a | 4a 80 67 28 24 40 15 7c |....N..:|J.g($@.||
|00000180| 00 04 00 08 15 42 00 0f | 93 c9 4e ae fe da 25 40 |.....B..|..N...%@|
|00000190| 00 10 41 ea 00 14 25 48 | 00 1c 43 ea 00 18 20 89 |..A...%H|..C... .|
|000001a0| 20 0a 60 08 20 02 4e ae | fe b0 70 00 4c df 44 04 | .`. .N.|..p.L.D.|
|000001b0| 4e 75 48 e7 00 22 24 48 | 2c 78 00 04 70 ff 15 40 |NuH.."$H|,x..p..@|
|000001c0| 00 08 25 40 00 14 70 00 | 10 2a 00 0f 4e ae fe b0 |..%@..p.|.*..N...|
|000001d0| 22 4a 70 22 4e ae ff 2e | 4c df 44 00 4e 75 00 00 |"Jp"N...|L.D.Nu..|
|000001e0| 00 00 03 ec 00 00 00 03 | 00 00 00 00 00 00 00 60 |........|.......`|
|000001f0| 00 00 00 70 00 00 00 b8 | 00 00 00 01 00 00 00 01 |...p....|........|
|00000200| 00 00 00 94 00 00 00 00 | 00 00 03 f2 00 00 03 ea |........|........|
|00000210| 00 00 25 a9 2f 2a 0a 24 | 56 45 52 3a 20 6e 65 77 |..%./*.$|VER: new|
|00000220| 4e 45 54 20 31 2e 32 30 | 20 62 79 20 41 6c 66 72 |NET 1.20| by Alfr|
|00000230| 65 64 6f 20 53 6f 72 6f | 20 28 32 37 20 4a 75 6e |edo Soro| (27 Jun|
|00000240| 20 31 39 39 37 20 2d 20 | 31 37 3a 30 30 29 0a 2a | 1997 - |17:00).*|
|00000250| 2f 0a 2f 2a 20 43 6f 6d | 70 72 65 73 73 65 64 20 |/./* Com|pressed |
|00000260| 77 69 74 68 20 43 6f 6d | 70 72 65 73 73 52 65 78 |with Com|pressRex|
|00000270| 78 20 76 32 2e 31 2c 20 | 28 43 29 20 31 39 39 33 |x v2.1, |(C) 1993|
|00000280| 2d 39 36 20 52 6f 62 65 | 72 74 20 48 6f 66 6d 61 |-96 Robe|rt Hofma|
|00000290| 6e 6e 20 2a 2f 0a 4f 50 | 54 49 4f 4e 53 20 46 41 |nn */.OP|TIONS FA|
|000002a0| 49 4c 41 54 20 39 39 3b | 4f 50 54 49 4f 4e 53 20 |ILAT 99;|OPTIONS |
|000002b0| 43 41 43 48 45 3b 4f 50 | 54 49 4f 4e 53 20 52 45 |CACHE;OP|TIONS RE|
|000002c0| 53 55 4c 54 53 3b 53 49 | 47 4e 41 4c 20 4f 4e 20 |SULTS;SI|GNAL ON |
|000002d0| 42 52 45 41 4b 5f 43 3b | 53 49 47 4e 41 4c 20 4f |BREAK_C;|SIGNAL O|
|000002e0| 4e 20 42 52 45 41 4b 5f | 44 3b 53 49 47 4e 41 4c |N BREAK_|D;SIGNAL|
|000002f0| 20 4f 4e 20 42 52 45 41 | 4b 5f 45 3b 53 49 47 4e | ON BREA|K_E;SIGN|
|00000300| 41 4c 20 4f 4e 20 42 52 | 45 41 4b 5f 46 3b 53 49 |AL ON BR|EAK_F;SI|
|00000310| 47 4e 41 4c 20 4f 4e 20 | 48 41 4c 54 3b 43 41 4c |GNAL ON |HALT;CAL|
|00000320| 4c 20 54 49 4d 45 20 27 | 72 27 3b 47 4d 54 49 20 |L TIME '|r';GMTI |
|00000330| 3d 20 27 2b 30 31 30 30 | 27 3b 6c 69 62 20 3d 20 |= '+0100|';lib = |
|00000340| 27 72 65 78 78 4d 4f 4f | 53 2e 6c 69 62 72 61 72 |'rexxMOO|S.librar|
|00000350| 79 27 3b 20 49 46 20 7e | 53 48 4f 57 28 27 4c 27 |y'; IF ~|SHOW('L'|
|00000360| 2c 6c 69 62 29 20 54 48 | 45 4e 20 43 41 4c 4c 20 |,lib) TH|EN CALL |
|00000370| 41 44 44 4c 49 42 28 6c | 69 62 2c 31 30 30 2c 2d |ADDLIB(l|ib,100,-|
|00000380| 33 30 29 3b 69 66 20 7e | 73 68 6f 77 28 27 6c 27 |30);if ~|show('l'|
|00000390| 2c 27 72 65 78 78 73 75 | 70 70 6f 72 74 2e 6c 69 |,'rexxsu|pport.li|
|000003a0| 62 72 61 72 79 27 29 3b | 74 68 65 6e 20 64 6f 3b |brary');|then do;|
|000003b0| 63 61 6c 6c 20 61 64 64 | 6c 69 62 28 27 72 65 78 |call add|lib('rex|
|000003c0| 78 73 75 70 70 6f 72 74 | 2e 6c 69 62 72 61 72 79 |xsupport|.library|
|000003d0| 27 2c 30 2c 2d 33 30 29 | 3b 65 6e 64 3b 44 52 4f |',0,-30)|;end;DRO|
|000003e0| 50 20 6e 6f 64 6d 65 74 | 2e 3b 44 52 4f 50 20 6e |P nodmet|.;DROP n|
|000003f0| 6f 64 6d 61 69 2e 3b 44 | 52 4f 50 20 6e 6f 64 6e |odmai.;D|ROP nodn|
|00000400| 75 6d 2e 3b 44 52 4f 50 | 20 6e 6f 64 72 65 64 2e |um.;DROP| nodred.|
|00000410| 3b 44 52 4f 50 20 73 75 | 62 7a 6f 2e 3b 61 75 74 |;DROP su|bzo.;aut|
|00000420| 6f 6c 6c 61 6d 61 72 20 | 3d 20 30 3b 76 6d 69 61 |ollamar |= 0;vmia|
|00000430| 6d 69 20 3d 20 30 3b 76 | 6e 6f 6d 61 69 6c 20 3d |mi = 0;v|nomail =|
|00000440| 20 30 3b 61 75 74 6f 69 | 6d 70 6f 72 74 61 72 20 | 0;autoi|mportar |
|00000450| 3d 20 30 3b 65 6e 74 65 | 72 20 3d 20 64 32 63 28 |= 0;ente|r = d2c(|
|00000460| 31 30 29 3b 6e 70 72 6f | 67 72 61 6d 61 20 3d 20 |10);npro|grama = |
|00000470| 27 6e 65 77 4e 45 54 20 | 31 2e 32 30 20 27 3b 43 |'newNET |1.20 ';C|
|00000480| 61 6c 6c 20 44 45 43 49 | 52 28 27 20 1b 5b 34 31 |all DECI|R(' .[41|
|00000490| 3b 33 32 3b 31 6d 20 6e | 65 77 4e 45 54 20 31 2e |;32;1m n|ewNET 1.|
|000004a0| 32 30 20 1b 5b 30 6d 20 | 62 79 20 41 6c 66 72 65 |20 .[0m |by Alfre|
|000004b0| 64 6f 20 53 6f 72 6f 20 | 28 32 37 20 4a 75 6e 20 |do Soro |(27 Jun |
|000004c0| 31 39 39 37 20 2d 20 31 | 37 3a 30 30 29 27 29 3b |1997 - 1|7:00)');|
|000004d0| 50 41 52 53 45 20 41 52 | 47 20 6c 6f 73 61 72 67 |PARSE AR|G losarg|
|000004e0| 3b 65 6c 65 20 3d 20 52 | 65 61 64 41 72 67 73 28 |;ele = R|eadArgs(|
|000004f0| 6c 6f 73 61 72 67 2c 22 | 43 6f 6e 6e 65 63 74 2f |losarg,"|Connect/|
|00000500| 53 2c 44 61 79 73 3d 44 | 69 61 73 2f 4b 2c 49 6d |S,Days=D|ias/K,Im|
|00000510| 70 6f 72 74 2f 53 2c 4e | 6f 63 6f 6e 6e 65 63 74 |port/S,N|oconnect|
|00000520| 3d 4e 43 2f 53 2c 4e 6f | 69 6d 70 6f 72 74 2f 53 |=NC/S,No|import/S|
|00000530| 2c 4e 6f 4d 61 69 6c 2f | 53 2c 59 61 6d 2f 53 2c |,NoMail/|S,Yam/S,|
|00000540| 4d 69 61 6d 69 2f 53 22 | 2c 27 61 72 67 75 73 2e |Miami/S"|,'argus.|
|00000550| 27 29 3b 49 46 20 65 6c | 65 20 3d 20 30 20 26 20 |');IF el|e = 0 & |
|00000560| 52 49 47 48 54 28 6c 6f | 73 61 72 67 2c 31 29 20 |RIGHT(lo|sarg,1) |
|00000570| 7e 3d 20 27 3f 27 3b 54 | 48 45 4e 20 44 4f 3b 43 |~= '?';T|HEN DO;C|
|00000580| 61 6c 6c 20 44 45 43 49 | 52 28 27 27 29 3b 43 61 |all DECI|R('');Ca|
|00000590| 6c 6c 20 44 45 43 49 52 | 28 27 55 73 61 67 65 3a |ll DECIR|('Usage:|
|000005a0| 20 43 6f 6e 6e 65 63 74 | 2f 53 2c 44 61 79 73 3d | Connect|/S,Days=|
|000005b0| 44 69 61 73 2f 4b 2f 4e | 2c 49 6d 70 6f 72 74 2f |Dias/K/N|,Import/|
|000005c0| 53 2c 4e 6f 63 6f 6e 6e | 65 63 74 3d 4e 43 2f 53 |S,Noconn|ect=NC/S|
|000005d0| 2c 4e 6f 69 6d 70 6f 72 | 74 2f 53 2c 4e 6f 4d 61 |,Noimpor|t/S,NoMa|
|000005e0| 69 6c 2f 53 2c 59 61 6d | 2f 53 2c 4d 69 61 6d 69 |il/S,Yam|/S,Miami|
|000005f0| 2f 53 3a 20 27 29 3b 45 | 58 49 54 3b 65 6e 64 3b |/S: ');E|XIT;end;|
|00000600| 43 41 4c 4c 20 41 52 47 | 55 4d 45 4e 54 4f 53 3b |CALL ARG|UMENTOS;|
|00000610| 43 41 4c 4c 20 49 44 49 | 4f 4d 41 3b 49 46 20 7e |CALL IDI|OMA;IF ~|
|00000620| 45 58 49 53 54 53 28 27 | 73 3a 6e 65 77 4e 45 54 |EXISTS('|s:newNET|
|00000630| 2e 43 46 47 27 29 20 54 | 48 45 4e 20 43 41 4c 4c |.CFG') T|HEN CALL|
|00000640| 20 43 4f 4e 46 49 47 55 | 52 41 3b 43 41 4c 4c 20 | CONFIGU|RA;CALL |
|00000650| 4c 45 45 43 4f 4e 46 49 | 47 3b 49 46 20 64 69 61 |LEECONFI|G;IF dia|
|00000660| 20 3d 20 31 20 54 48 45 | 4e 20 76 64 61 79 73 20 | = 1 THE|N vdays |
|00000670| 3d 20 64 69 61 73 3b 43 | 41 4c 4c 20 54 65 78 74 |= dias;C|ALL Text|
|00000680| 6f 28 6e 70 72 6f 67 72 | 61 6d 61 7c 7c 46 72 61 |o(nprogr|ama||Fra|
|00000690| 73 65 2e 38 31 2c 27 2b | 27 29 3b 61 63 63 69 6f |se.81,'+|');accio|
|000006a0| 6e 73 20 3d 20 27 27 3b | 49 46 20 61 75 74 6f 69 |ns = '';|IF autoi|
|000006b0| 6d 70 6f 72 74 61 72 20 | 3d 20 31 20 26 20 6e 6f |mportar |= 1 & no|
|000006c0| 69 6d 70 6f 72 74 61 72 | 20 3d 20 30 20 54 48 45 |importar| = 0 THE|
|000006d0| 4e 20 61 63 63 69 6f 6e | 73 20 3d 20 61 63 63 69 |N accion|s = acci|
|000006e0| 6f 6e 73 7c 7c 46 72 61 | 73 65 2e 38 34 27 20 27 |ons||Fra|se.84' '|
|000006f0| 3b 45 4c 53 45 20 49 46 | 20 69 6d 70 6f 72 74 61 |;ELSE IF| importa|
|00000700| 72 20 3d 20 31 20 54 48 | 45 4e 20 61 63 63 69 6f |r = 1 TH|EN accio|
|00000710| 6e 73 20 3d 20 61 63 63 | 69 6f 6e 73 7c 7c 46 72 |ns = acc|ions||Fr|
|00000720| 61 73 65 2e 38 34 27 20 | 27 3b 49 46 20 76 79 61 |ase.84' |';IF vya|
|00000730| 6d 20 3d 20 31 20 54 48 | 45 4e 20 61 63 63 69 6f |m = 1 TH|EN accio|
|00000740| 6e 73 20 3d 20 61 63 63 | 69 6f 6e 73 7c 7c 46 72 |ns = acc|ions||Fr|
|00000750| 61 73 65 2e 38 36 27 20 | 27 3b 49 46 20 61 75 74 |ase.86' |';IF aut|
|00000760| 6f 6c 6c 61 6d 61 72 20 | 3d 20 31 20 26 20 6e 6f |ollamar |= 1 & no|
|00000770| 6c 6c 61 6d 61 72 20 3d | 20 30 20 26 20 76 6e 6f |llamar =| 0 & vno|
|00000780| 6d 61 69 6c 20 3d 20 30 | 20 54 48 45 4e 20 61 63 |mail = 0| THEN ac|
|00000790| 63 69 6f 6e 73 20 3d 20 | 61 63 63 69 6f 6e 73 7c |cions = |accions||
|000007a0| 7c 46 72 61 73 65 2e 38 | 35 27 20 27 3b 45 4c 53 ||Frase.8|5' ';ELS|
|000007b0| 45 20 49 46 20 6c 6c 61 | 6d 61 72 20 3d 20 31 20 |E IF lla|mar = 1 |
|000007c0| 26 20 76 6e 6f 6d 61 69 | 6c 20 3d 20 30 20 54 48 |& vnomai|l = 0 TH|
|000007d0| 45 4e 20 61 63 63 69 6f | 6e 73 20 3d 20 61 63 63 |EN accio|ns = acc|
|000007e0| 69 6f 6e 73 7c 7c 46 72 | 61 73 65 2e 38 35 27 20 |ions||Fr|ase.85' |
|000007f0| 27 3b 49 46 20 61 75 74 | 6f 69 6d 70 6f 72 74 61 |';IF aut|oimporta|
|00000800| 72 20 3d 20 30 20 26 20 | 69 6d 70 6f 72 74 61 72 |r = 0 & |importar|
|00000810| 20 3d 20 30 20 54 48 45 | 4e 20 61 63 63 69 6f 6e | = 0 THE|N accion|
|00000820| 73 20 3d 20 61 63 63 69 | 6f 6e 73 7c 7c 46 72 61 |s = acci|ons||Fra|
|00000830| 73 65 2e 38 37 27 20 27 | 3b 45 4c 53 45 20 49 46 |se.87' '|;ELSE IF|
|00000840| 20 6e 6f 69 6d 70 6f 72 | 74 61 72 20 3d 20 31 20 | noimpor|tar = 1 |
|00000850| 54 48 45 4e 20 61 63 63 | 69 6f 6e 73 20 3d 20 61 |THEN acc|ions = a|
|00000860| 63 63 69 6f 6e 73 7c 7c | 46 72 61 73 65 2e 38 37 |ccions|||Frase.87|
|00000870| 27 20 27 3b 49 46 20 61 | 75 74 6f 6c 6c 61 6d 61 |' ';IF a|utollama|
|00000880| 72 20 3d 20 30 20 26 20 | 6c 6c 61 6d 61 72 20 3d |r = 0 & |llamar =|
|00000890| 20 30 20 54 48 45 4e 20 | 61 63 63 69 6f 6e 73 20 | 0 THEN |accions |
|000008a0| 3d 20 61 63 63 69 6f 6e | 73 7c 7c 46 72 61 73 65 |= accion|s||Frase|
|000008b0| 2e 38 38 27 20 27 3b 45 | 4c 53 45 20 49 46 20 6e |.88' ';E|LSE IF n|
|000008c0| 6f 6c 6c 61 6d 61 72 20 | 3d 20 31 20 54 48 45 4e |ollamar |= 1 THEN|
|000008d0| 20 61 63 63 69 6f 6e 73 | 20 3d 20 61 63 63 69 6f | accions| = accio|
|000008e0| 6e 73 7c 7c 46 72 61 73 | 65 2e 38 38 27 20 27 3b |ns||Fras|e.88' ';|
|000008f0| 49 46 20 4c 4f 47 4c 45 | 56 45 4c 20 3e 20 33 20 |IF LOGLE|VEL > 3 |
|00000900| 54 48 45 4e 20 43 41 4c | 4c 20 54 65 78 74 6f 28 |THEN CAL|L Texto(|
|00000910| 46 72 61 73 65 2e 38 33 | 27 20 27 61 63 63 69 6f |Frase.83|' 'accio|
|00000920| 6e 73 2c 27 3e 27 29 3b | 49 46 20 7e 45 58 49 53 |ns,'>');|IF ~EXIS|
|00000930| 54 53 28 61 64 64 70 61 | 72 74 28 6f 75 74 62 6f |TS(addpa|rt(outbo|
|00000940| 75 6e 64 2c 27 6e 65 77 | 4e 45 54 27 29 29 20 54 |und,'new|NET')) T|
|00000950| 48 45 4e 20 41 44 44 52 | 45 53 53 20 43 4f 4d 4d |HEN ADDR|ESS COMM|
|00000960| 41 4e 44 28 27 6d 61 6b | 65 64 69 72 20 27 61 64 |AND('mak|edir 'ad|
|00000970| 64 70 61 72 74 28 6f 75 | 74 62 6f 75 6e 64 2c 27 |dpart(ou|tbound,'|
|00000980| 6e 65 77 4e 45 54 27 29 | 29 3b 49 46 20 56 59 41 |newNET')|);IF VYA|
|00000990| 4d 20 3d 20 31 3b 54 48 | 45 4e 20 44 4f 3b 43 41 |M = 1;TH|EN DO;CA|
|000009a0| 4c 4c 20 45 78 65 63 75 | 74 65 28 27 41 73 73 69 |LL Execu|te('Assi|
|000009b0| 67 6e 20 59 41 4d 3a 20 | 45 58 49 53 54 53 27 2c |gn YAM: |EXISTS',|
|000009c0| 27 6f 75 66 2e 27 29 3b | 49 46 20 57 4f 52 44 28 |'ouf.');|IF WORD(|
|000009d0| 55 50 50 45 52 28 6f 75 | 66 2e 30 29 2c 31 29 20 |UPPER(ou|f.0),1) |
|000009e0| 7e 3d 20 27 59 41 4d 27 | 20 54 48 45 4e 20 76 79 |~= 'YAM'| THEN vy|
|000009f0| 61 6d 20 3d 20 30 3b 45 | 4c 53 45 20 43 41 4c 4c |am = 0;E|LSE CALL|
|00000a00| 20 53 49 59 41 4d 3b 65 | 6e 64 3b 43 41 4c 4c 20 | SIYAM;e|nd;CALL |
|00000a10| 50 72 6f 63 65 73 6f 3b | 49 46 20 6c 6f 67 6c 65 |Proceso;|IF logle|
|00000a20| 76 65 6c 20 3e 20 33 20 | 54 48 45 4e 20 43 41 4c |vel > 3 |THEN CAL|
|00000a30| 4c 20 54 65 78 74 6f 28 | 46 72 61 73 65 2e 39 35 |L Texto(|Frase.95|
|00000a40| 27 20 27 54 49 4d 45 28 | 27 65 27 29 27 20 27 46 |' 'TIME(|'e')' 'F|
|00000a50| 72 61 73 65 2e 39 36 2c | 27 3c 27 29 3b 43 41 4c |rase.96,|'<');CAL|
|00000a60| 4c 20 54 65 78 74 6f 28 | 6e 70 72 6f 67 72 61 6d |L Texto(|nprogram|
|00000a70| 61 7c 7c 46 72 61 73 65 | 2e 37 37 2c 27 2b 27 29 |a||Frase|.77,'+')|
|00000a80| 3b 45 58 49 54 3b 49 44 | 49 4f 4d 41 3a 3b 49 46 |;EXIT;ID|IOMA:;IF|
|00000a90| 20 7e 45 58 49 53 54 53 | 28 27 73 3a 6e 65 77 4e | ~EXISTS|('s:newN|
|00000aa0| 45 54 2e 4c 41 4e 47 27 | 29 3b 54 48 45 4e 20 44 |ET.LANG'|);THEN D|
|00000ab0| 4f 3b 43 61 6c 6c 20 44 | 45 43 49 52 28 27 6e 65 |O;Call D|ECIR('ne|
|00000ac0| 77 4e 45 54 2e 4c 41 4e | 47 20 6d 75 73 74 20 62 |wNET.LAN|G must b|
|00000ad0| 65 20 69 6e 20 53 3a 20 | 21 21 21 27 29 3b 45 58 |e in S: |!!!');EX|
|00000ae0| 49 54 3b 65 6e 64 3b 43 | 41 4c 4c 20 53 74 65 6d |IT;end;C|ALL Stem|
|00000af0| 52 65 61 64 28 27 73 3a | 6e 65 77 4e 45 54 2e 4c |Read('s:|newNET.L|
|00000b00| 41 4e 47 27 2c 27 46 72 | 61 73 65 2e 27 29 3b 52 |ANG','Fr|ase.');R|
|00000b10| 45 54 55 52 4e 3b 45 58 | 49 54 3b 50 52 4f 43 45 |ETURN;EX|IT;PROCE|
|00000b20| 53 4f 3a 3b 43 41 4c 4c | 20 54 65 78 74 6f 28 46 |SO:;CALL| Texto(F|
|00000b30| 72 61 73 65 2e 31 30 30 | 2c 27 2a 27 29 3b 64 6f |rase.100|,'*');do|
|00000b40| 20 6c 75 75 70 20 3d 20 | 31 20 74 6f 20 6e 6f 64 | luup = |1 to nod|
|00000b50| 6f 73 3b 43 41 4c 4c 20 | 6d 69 72 61 6c 6f 28 27 |os;CALL |miralo('|
|00000b60| 48 4c 4f 27 29 3b 43 41 | 4c 4c 20 6d 69 72 61 6c |HLO');CA|LL miral|
|00000b70| 6f 28 27 46 4c 4f 27 29 | 3b 43 41 4c 4c 20 6d 69 |o('FLO')|;CALL mi|
|00000b80| 72 61 6c 6f 28 27 43 4c | 4f 27 29 3b 43 41 4c 4c |ralo('CL|O');CALL|
|00000b90| 20 6d 69 72 61 6c 6f 28 | 27 44 4c 4f 27 29 3b 43 | miralo(|'DLO');C|
|00000ba0| 41 4c 4c 20 6d 69 72 61 | 75 74 28 27 43 55 54 27 |ALL mira|ut('CUT'|
|00000bb0| 29 3b 43 41 4c 4c 20 6d | 69 72 61 75 74 28 27 4f |);CALL m|iraut('O|
|00000bc0| 55 54 27 29 3b 43 41 4c | 4c 20 6d 69 72 61 75 74 |UT');CAL|L miraut|
|00000bd0| 28 27 44 55 54 27 29 3b | 43 41 4c 4c 20 6d 69 72 |('DUT');|CALL mir|
|00000be0| 61 75 74 28 27 48 55 54 | 27 29 3b 65 6e 64 3b 43 |aut('HUT|');end;C|
|00000bf0| 41 4c 4c 20 45 78 61 6d | 69 6e 61 74 69 6f 6e 3b |ALL Exam|ination;|
|00000c00| 49 46 20 76 6e 6f 6d 61 | 69 6c 20 3d 20 30 3b 54 |IF vnoma|il = 0;T|
|00000c10| 48 45 4e 20 44 4f 3b 43 | 41 4c 4c 20 4c 4c 41 4d |HEN DO;C|ALL LLAM|
|00000c20| 41 4e 44 4f 3b 6e 6f 74 | 63 70 20 3d 20 30 3b 69 |ANDO;not|cp = 0;i|
|00000c30| 66 20 7e 73 68 6f 77 6c | 69 73 74 28 27 48 27 2c |f ~showl|ist('H',|
|00000c40| 27 54 43 50 27 29 20 74 | 68 65 6e 20 6e 6f 74 63 |'TCP') t|hen notc|
|00000c50| 70 20 3d 20 31 3b 69 66 | 20 6e 6f 74 63 70 20 3d |p = 1;if| notcp =|
|00000c60| 20 30 3b 74 68 65 6e 20 | 64 6f 3b 43 41 4c 4c 20 | 0;then |do;CALL |
|00000c70| 72 65 63 69 62 65 3b 43 | 41 4c 4c 20 45 6e 76 69 |recibe;C|ALL Envi|
|00000c80| 6f 3b 65 6e 64 3b 43 41 | 4c 4c 20 63 6f 6c 67 61 |o;end;CA|LL colga|
|00000c90| 64 6f 3b 65 6e 64 3b 43 | 41 4c 4c 20 44 65 63 6f |do;end;C|ALL Deco|
|00000ca0| 64 69 66 69 3b 43 41 4c | 4c 20 42 6f 72 72 61 64 |difi;CAL|L Borrad|
|00000cb0| 6f 73 3b 43 41 4c 4c 20 | 50 72 6f 63 65 73 6d 61 |os;CALL |Procesma|
|00000cc0| 69 6c 3b 52 45 54 55 52 | 4e 3b 45 58 49 54 3b 45 |il;RETUR|N;EXIT;E|
|00000cd0| 78 61 6d 69 6e 61 74 69 | 6f 6e 3a 3b 43 41 4c 4c |xaminati|on:;CALL|
|00000ce0| 20 45 78 41 6c 6c 28 61 | 64 64 70 61 72 74 28 6f | ExAll(a|ddpart(o|
|00000cf0| 75 74 62 6f 75 6e 64 2c | 27 6e 65 77 4e 45 54 27 |utbound,|'newNET'|
|00000d00| 29 27 2f 6e 65 77 4e 45 | 54 2d 23 3f 27 2c 27 6e |)'/newNE|T-#?','n|
|00000d10| 4e 2e 20 54 59 50 45 20 | 31 33 35 36 27 29 3b 66 |N. TYPE |1356');f|
|00000d20| 69 73 65 6e 63 68 65 20 | 3d 20 30 3b 43 41 4c 4c |isenche |= 0;CALL|
|00000d30| 20 54 65 78 74 6f 28 46 | 72 61 73 65 2e 39 31 2c | Texto(F|rase.91,|
|00000d40| 27 2b 27 29 3b 64 6f 20 | 7a 79 75 20 3d 20 30 20 |'+');do |zyu = 0 |
|00000d50| 74 6f 20 6e 4e 2e 63 6f | 75 6e 74 2d 31 3b 49 46 |to nN.co|unt-1;IF|
|00000d60| 20 4c 45 46 54 28 6e 4e | 2e 7a 79 75 2e 4e 6f 74 | LEFT(nN|.zyu.Not|
|00000d70| 65 2c 31 29 20 3d 20 27 | 43 27 3b 54 48 45 4e 20 |e,1) = '|C';THEN |
|00000d80| 44 4f 3b 66 69 73 65 6e | 63 68 65 20 3d 20 66 69 |DO;fisen|che = fi|
|00000d90| 73 65 6e 63 68 65 20 2b | 20 31 3b 61 74 66 69 63 |senche +| 1;atfic|
|00000da0| 68 65 20 3d 20 57 4f 52 | 44 28 6e 4e 2e 7a 79 75 |he = WOR|D(nN.zyu|
|00000db0| 2e 4e 6f 74 65 2c 32 29 | 3b 49 46 20 4d 61 74 63 |.Note,2)|;IF Matc|
|00000dc0| 68 50 61 74 74 65 72 6e | 28 27 23 3f 2e 23 3f 2e |hPattern|('#?.#?.|
|00000dd0| 23 3f 2e 23 3f 2e 28 4d | 4f 7c 54 55 7c 57 45 7c |#?.#?.(M|O|TU|WE||
|00000de0| 54 48 7c 46 52 7c 53 41 | 7c 53 55 29 3f 27 2c 61 |TH|FR|SA||SU)?',a|
|00000df0| 74 66 69 63 68 65 29 20 | 54 48 45 4e 20 61 74 66 |tfiche) |THEN atf|
|00000e00| 69 63 68 65 20 3d 20 6e | 75 65 76 6f 62 75 6e 64 |iche = n|uevobund|
|00000e10| 28 52 49 47 48 54 28 61 | 74 66 69 63 68 65 2c 33 |(RIGHT(a|tfiche,3|
|00000e20| 29 29 3b 43 41 4c 4c 20 | 6e 6e 6f 6d 62 72 75 74 |));CALL |nnombrut|
|00000e30| 3b 61 73 75 6e 74 6f 20 | 3d 20 61 74 66 69 63 68 |;asunto |= atfich|
|00000e40| 65 27 20 27 6e 4e 2e 7a | 79 75 2e 53 69 7a 65 27 |e' 'nN.z|yu.Size'|
|00000e50| 20 27 77 6f 72 64 28 6e | 4e 2e 7a 79 75 2e 4e 6f | 'word(n|N.zyu.No|
|00000e60| 74 65 2c 33 29 27 20 27 | 6e 6e 6f 6d 62 27 20 27 |te,3)' '|nnomb' '|
|00000e70| 53 55 42 57 4f 52 44 28 | 6e 4e 2e 7a 79 75 2e 4e |SUBWORD(|nN.zyu.N|
|00000e80| 6f 74 65 2c 35 29 3b 68 | 65 61 64 65 6e 6f 6d 20 |ote,5);h|eadenom |
|00000e90| 3d 20 61 64 64 70 61 72 | 74 28 54 45 4d 50 2c 27 |= addpar|t(TEMP,'|
|00000ea0| 6e 65 77 6e 65 74 2d 68 | 65 61 64 65 72 27 29 3b |newnet-h|eader');|
|00000eb0| 66 69 63 68 65 63 75 65 | 72 70 6f 20 3d 20 61 64 |fichecue|rpo = ad|
|00000ec0| 64 70 61 72 74 28 54 45 | 4d 50 2c 27 6e 65 77 6e |dpart(TE|MP,'newn|
|00000ed0| 65 74 2d 61 74 74 61 63 | 68 27 29 3b 63 6f 64 69 |et-attac|h');codi|
|00000ee0| 6e 61 6d 65 20 3d 20 61 | 64 64 70 61 72 74 28 6f |name = a|ddpart(o|
|00000ef0| 75 74 62 6f 75 6e 64 2c | 27 6e 65 77 4e 45 54 27 |utbound,|'newNET'|
|00000f00| 29 27 2f 27 6e 4e 2e 7a | 79 75 2e 4e 61 6d 65 3b |)'/'nN.z|yu.Name;|
|00000f10| 6d 65 74 6f 64 6f 20 3d | 20 27 27 3b 49 46 20 55 |metodo =| '';IF U|
|00000f20| 50 50 45 52 28 57 4f 52 | 44 28 6e 4e 2e 7a 79 75 |PPER(WOR|D(nN.zyu|
|00000f30| 2e 4e 6f 74 65 2c 35 29 | 29 20 3d 20 27 50 47 50 |.Note,5)|) = 'PGP|
|00000f40| 27 20 54 48 45 4e 20 6d | 65 74 6f 64 6f 20 3d 20 |' THEN m|etodo = |
|00000f50| 27 70 67 70 27 3b 49 46 | 20 55 50 50 45 52 28 57 |'pgp';IF| UPPER(W|
|00000f60| 4f 52 44 28 6e 4e 2e 7a | 79 75 2e 4e 6f 74 65 2c |ORD(nN.z|yu.Note,|
|00000f70| 35 29 29 20 3d 20 27 46 | 53 43 4f 44 45 27 20 54 |5)) = 'F|SCODE' T|
|00000f80| 48 45 4e 20 6d 65 74 6f | 64 6f 20 3d 20 27 66 73 |HEN meto|do = 'fs|
|00000f90| 63 6f 64 65 27 3b 49 46 | 20 55 50 50 45 52 28 57 |code';IF| UPPER(W|
|00000fa0| 4f 52 44 28 6e 4e 2e 7a | 79 75 2e 4e 6f 74 65 2c |ORD(nN.z|yu.Note,|
|00000fb0| 35 29 29 20 3d 20 27 4d | 49 4d 45 27 20 54 48 45 |5)) = 'M|IME' THE|
|00000fc0| 4e 20 6d 65 74 6f 64 6f | 20 3d 20 27 62 61 73 65 |N metodo| = 'base|
|00000fd0| 36 34 27 3b 49 46 20 55 | 50 50 45 52 28 57 4f 52 |64';IF U|PPER(WOR|
|00000fe0| 44 28 6e 4e 2e 7a 79 75 | 2e 4e 6f 74 65 2c 35 29 |D(nN.zyu|.Note,5)|
|00000ff0| 29 20 3d 20 27 58 2d 55 | 55 45 27 20 54 48 45 4e |) = 'X-U|UE' THEN|
|00001000| 20 6d 65 74 6f 64 6f 20 | 3d 20 27 78 2d 75 75 65 | metodo |= 'x-uue|
|00001010| 27 3b 49 46 20 6d 65 74 | 6f 64 6f 20 3d 20 27 70 |';IF met|odo = 'p|
|00001020| 67 70 27 3b 54 48 45 4e | 20 44 4f 3b 49 46 20 53 |gp';THEN| DO;IF S|
|00001030| 55 42 57 4f 52 44 28 6e | 4e 2e 7a 79 75 2e 4e 6f |UBWORD(n|N.zyu.No|
|00001040| 74 65 2c 35 29 20 3d 20 | 57 4f 52 44 28 6e 4e 2e |te,5) = |WORD(nN.|
|00001050| 7a 79 75 2e 4e 6f 74 65 | 2c 35 29 20 54 48 45 4e |zyu.Note|,5) THEN|
|00001060| 20 41 64 64 72 65 73 73 | 20 43 6f 6d 6d 61 6e 64 | Address| Command|
|00001070| 28 27 50 47 50 20 2d 61 | 20 2b 46 4f 52 43 45 20 |('PGP -a| +FORCE |
|00001080| 2b 56 45 52 42 4f 53 45 | 3d 30 20 2b 4e 4f 4d 41 |+VERBOSE|=0 +NOMA|
|00001090| 4e 55 41 4c 3d 6f 66 66 | 20 27 63 6f 64 69 6e 61 |NUAL=off| 'codina|
|000010a0| 6d 65 27 20 2d 6f 20 27 | 66 69 63 68 65 63 75 65 |me' -o '|fichecue|
|000010b0| 72 70 6f 29 3b 45 4c 53 | 45 20 41 64 64 72 65 73 |rpo);ELS|E Addres|
|000010c0| 73 20 43 6f 6d 6d 61 6e | 64 28 27 50 47 50 20 2d |s Comman|d('PGP -|
|000010d0| 65 61 20 2b 46 4f 52 43 | 45 20 2b 56 45 52 42 4f |ea +FORC|E +VERBO|
|000010e0| 53 45 3d 30 20 2b 4e 4f | 4d 41 4e 55 41 4c 3d 6f |SE=0 +NO|MANUAL=o|
|000010f0| 66 66 20 27 63 6f 64 69 | 6e 61 6d 65 27 20 27 53 |ff 'codi|name' 'S|
|00001100| 55 42 57 4f 52 44 28 6e | 4e 2e 7a 79 75 2e 4e 6f |UBWORD(n|N.zyu.No|
|00001110| 74 65 2c 36 29 27 20 2d | 6f 20 27 66 69 63 68 65 |te,6)' -|o 'fiche|
|00001120| 63 75 65 72 70 6f 29 3b | 65 6e 64 3b 49 46 20 6d |cuerpo);|end;IF m|
|00001130| 65 74 6f 64 6f 20 3d 20 | 27 27 20 54 48 45 4e 20 |etodo = |'' THEN |
|00001140| 6d 65 74 6f 64 6f 20 3d | 20 27 62 61 73 65 36 34 |metodo =| 'base64|
|00001150| 27 3b 49 46 20 6d 65 74 | 6f 64 6f 20 3d 20 27 62 |';IF met|odo = 'b|
|00001160| 61 73 65 36 34 27 20 54 | 48 45 4e 20 41 44 44 52 |ase64' T|HEN ADDR|
|00001170| 45 53 53 20 43 4f 4d 4d | 41 4e 44 28 27 42 61 73 |ESS COMM|AND('Bas|
|00001180| 65 36 34 65 6e 63 6f 64 | 65 20 3e 4e 49 4c 3a 20 |e64encod|e >NIL: |
|00001190| 27 63 6f 64 69 6e 61 6d | 65 27 20 27 66 69 63 68 |'codinam|e' 'fich|
|000011a0| 65 63 75 65 72 70 6f 27 | 20 4e 4f 48 45 41 44 45 |ecuerpo'| NOHEADE|
|000011b0| 52 27 29 3b 49 46 20 6d | 65 74 6f 64 6f 20 3d 20 |R');IF m|etodo = |
|000011c0| 27 66 73 63 6f 64 65 27 | 20 54 48 45 4e 20 41 44 |'fscode'| THEN AD|
|000011d0| 44 52 45 53 53 20 43 4f | 4d 4d 41 4e 44 28 27 66 |DRESS CO|MMAND('f|
|000011e0| 73 63 6f 64 65 20 3e 4e | 49 4c 3a 20 27 63 6f 64 |scode >N|IL: 'cod|
|000011f0| 69 6e 61 6d 65 27 20 27 | 66 69 63 68 65 63 75 65 |iname' '|fichecue|
|00001200| 72 70 6f 27 20 45 27 29 | 3b 49 46 20 6d 65 74 6f |rpo' E')|;IF meto|
|00001210| 64 6f 20 3d 20 27 78 2d | 75 75 65 27 20 54 48 45 |do = 'x-|uue' THE|
|00001220| 4e 20 41 44 44 52 45 53 | 53 20 43 4f 4d 4d 41 4e |N ADDRES|S COMMAN|
|00001230| 44 28 27 75 75 69 6e 20 | 3e 4e 49 4c 3a 20 27 63 |D('uuin |>NIL: 'c|
|00001240| 6f 64 69 6e 61 6d 65 27 | 20 27 66 69 63 68 65 63 |odiname'| 'fichec|
|00001250| 75 65 72 70 6f 29 3b 61 | 73 75 6e 74 20 3d 20 61 |uerpo);a|sunt = a|
|00001260| 73 75 6e 74 6f 3b 61 73 | 75 6e 74 6f 20 3d 20 27 |sunto;as|unto = '|
|00001270| 6e 4e 20 27 61 73 75 6e | 74 6f 3b 43 61 6c 6c 20 |nN 'asun|to;Call |
|00001280| 53 69 65 6d 70 72 65 48 | 45 41 44 45 4e 4f 4d 41 |SiempreH|EADENOMA|
|00001290| 3b 43 41 4c 4c 20 57 72 | 69 74 65 46 69 6c 65 28 |;CALL Wr|iteFile(|
|000012a0| 68 65 61 64 65 6e 6f 6d | 2c 27 54 6f 3a 20 27 77 |headenom|,'To: 'w|
|000012b0| 6f 72 64 28 6e 4e 2e 7a | 79 75 2e 4e 6f 74 65 2c |ord(nN.z|yu.Note,|
|000012c0| 34 29 7c 7c 65 6e 74 65 | 72 2c 27 41 70 70 65 6e |4)||ente|r,'Appen|
|000012d0| 64 27 29 3b 43 61 6c 6c | 20 53 69 65 6d 70 72 65 |d');Call| Siempre|
|000012e0| 48 45 41 44 45 4e 4f 4d | 42 3b 61 73 75 6e 74 6f |HEADENOM|B;asunto|
|000012f0| 20 3d 20 61 73 75 6e 74 | 3b 43 41 4c 4c 20 57 72 | = asunt|;CALL Wr|
|00001300| 69 74 65 46 69 6c 65 28 | 68 65 61 64 65 6e 6f 6d |iteFile(|headenom|
|00001310| 2c 27 43 6f 6e 74 65 6e | 74 2d 74 79 70 65 3a 20 |,'Conten|t-type: |
|00001320| 6d 75 6c 74 69 70 61 72 | 74 2f 6d 69 78 65 64 3b |multipar|t/mixed;|
|00001330| 20 62 6f 75 6e 64 61 72 | 79 3d 22 4e 45 57 4e 45 | boundar|y="NEWNE|
|00001340| 54 2e 62 6f 75 6e 64 61 | 72 79 22 27 65 6e 74 65 |T.bounda|ry"'ente|
|00001350| 72 2c 27 41 70 70 65 6e | 64 27 29 3b 43 41 4c 4c |r,'Appen|d');CALL|
|00001360| 20 57 72 69 74 65 46 69 | 6c 65 28 68 65 61 64 65 | WriteFi|le(heade|
|00001370| 6e 6f 6d 2c 27 27 65 6e | 74 65 72 2c 27 41 70 70 |nom,''en|ter,'App|
|00001380| 65 6e 64 27 29 3b 43 41 | 4c 4c 20 57 72 69 74 65 |end');CA|LL Write|
|00001390| 46 69 6c 65 28 68 65 61 | 64 65 6e 6f 6d 2c 46 72 |File(hea|denom,Fr|
|000013a0| 61 73 65 2e 34 39 7c 7c | 65 6e 74 65 72 2c 27 41 |ase.49|||enter,'A|
|000013b0| 70 70 65 6e 64 27 29 3b | 43 41 4c 4c 20 57 72 69 |ppend');|CALL Wri|
|000013c0| 74 65 46 69 6c 65 28 68 | 65 61 64 65 6e 6f 6d 2c |teFile(h|eadenom,|
|000013d0| 46 72 61 73 65 2e 35 30 | 7c 7c 65 6e 74 65 72 2c |Frase.50|||enter,|
|000013e0| 27 41 70 70 65 6e 64 27 | 29 3b 43 41 4c 4c 20 57 |'Append'|);CALL W|
|000013f0| 72 69 74 65 46 69 6c 65 | 28 68 65 61 64 65 6e 6f |riteFile|(headeno|
|00001400| 6d 2c 27 27 65 6e 74 65 | 72 2c 27 41 70 70 65 6e |m,''ente|r,'Appen|
|00001410| 64 27 29 3b 43 41 4c 4c | 20 57 72 69 74 65 46 69 |d');CALL| WriteFi|
|00001420| 6c 65 28 68 65 61 64 65 | 6e 6f 6d 2c 27 2d 2d 4e |le(heade|nom,'--N|
|00001430| 45 57 4e 45 54 2e 62 6f | 75 6e 64 61 72 79 27 65 |EWNET.bo|undary'e|
|00001440| 6e 74 65 72 2c 27 41 70 | 70 65 6e 64 27 29 3b 43 |nter,'Ap|pend');C|
|00001450| 41 4c 4c 20 57 72 69 74 | 65 46 69 6c 65 28 68 65 |ALL Writ|eFile(he|
|00001460| 61 64 65 6e 6f 6d 2c 27 | 43 6f 6e 74 65 6e 74 2d |adenom,'|Content-|
|00001470| 54 79 70 65 3a 20 74 65 | 78 74 2f 70 6c 61 69 6e |Type: te|xt/plain|
|00001480| 3b 20 63 68 61 72 73 65 | 74 3d 69 73 6f 2d 38 38 |; charse|t=iso-88|
|00001490| 35 39 2d 31 27 65 6e 74 | 65 72 2c 27 41 70 70 65 |59-1'ent|er,'Appe|
|000014a0| 6e 64 27 29 3b 43 41 4c | 4c 20 57 72 69 74 65 46 |nd');CAL|L WriteF|
|000014b0| 69 6c 65 28 68 65 61 64 | 65 6e 6f 6d 2c 27 43 6f |ile(head|enom,'Co|
|000014c0| 6e 74 65 6e 74 2d 54 72 | 61 6e 73 66 65 72 2d 45 |ntent-Tr|ansfer-E|
|000014d0| 6e 63 6f 64 69 6e 67 3a | 20 71 75 6f 74 65 64 2d |ncoding:| quoted-|
|000014e0| 70 72 69 6e 74 61 62 6c | 65 27 65 6e 74 65 72 2c |printabl|e'enter,|
|000014f0| 27 41 70 70 65 6e 64 27 | 29 3b 43 41 4c 4c 20 57 |'Append'|);CALL W|
|00001500| 72 69 74 65 46 69 6c 65 | 28 68 65 61 64 65 6e 6f |riteFile|(headeno|
|00001510| 6d 2c 27 27 65 6e 74 65 | 72 2c 27 41 70 70 65 6e |m,''ente|r,'Appen|
|00001520| 64 27 29 3b 43 41 4c 4c | 20 57 72 69 74 65 46 69 |d');CALL| WriteFi|
|00001530| 6c 65 28 68 65 61 64 65 | 6e 6f 6d 2c 46 72 61 73 |le(heade|nom,Fras|
|00001540| 65 2e 31 27 20 6e 65 77 | 4e 45 54 3a 27 65 6e 74 |e.1' new|NET:'ent|
|00001550| 65 72 2c 27 41 70 70 65 | 6e 64 27 29 3b 43 41 4c |er,'Appe|nd');CAL|
|00001560| 4c 20 57 72 69 74 65 46 | 69 6c 65 28 68 65 61 64 |L WriteF|ile(head|
|00001570| 65 6e 6f 6d 2c 27 27 65 | 6e 74 65 72 2c 27 41 70 |enom,''e|nter,'Ap|
|00001580| 70 65 6e 64 27 29 3b 49 | 46 20 6d 65 74 6f 64 6f |pend');I|F metodo|
|00001590| 20 3d 20 27 62 61 73 65 | 36 34 27 20 7c 20 6d 65 | = 'base|64' | me|
|000015a0| 74 6f 64 6f 20 3d 20 27 | 78 2d 75 75 65 27 20 54 |todo = '|x-uue' T|
|000015b0| 48 45 4e 20 43 41 4c 4c | 20 57 72 69 74 65 46 69 |HEN CALL| WriteFi|
|000015c0| 6c 65 28 68 65 61 64 65 | 6e 6f 6d 2c 27 2a 2a 2a |le(heade|nom,'***|
|000015d0| 27 46 72 61 73 65 2e 35 | 31 27 2a 2a 2a 27 65 6e |'Frase.5|1'***'en|
|000015e0| 74 65 72 2c 27 41 70 70 | 65 6e 64 27 29 3b 45 4c |ter,'App|end');EL|
|000015f0| 53 45 20 43 41 4c 4c 20 | 57 72 69 74 65 46 69 6c |SE CALL |WriteFil|
|00001600| 65 28 68 65 61 64 65 6e | 6f 6d 2c 27 2a 2a 2a 27 |e(headen|om,'***'|
|00001610| 46 72 61 73 65 2e 35 35 | 27 2a 2a 2a 27 65 6e 74 |Frase.55|'***'ent|
|00001620| 65 72 2c 27 41 70 70 65 | 6e 64 27 29 3b 43 41 4c |er,'Appe|nd');CAL|
|00001630| 4c 20 57 72 69 74 65 46 | 69 6c 65 28 68 65 61 64 |L WriteF|ile(head|
|00001640| 65 6e 6f 6d 2c 27 27 65 | 6e 74 65 72 2c 27 41 70 |enom,''e|nter,'Ap|
|00001650| 70 65 6e 64 27 29 3b 43 | 41 4c 4c 20 57 72 69 74 |pend');C|ALL Writ|
|00001660| 65 46 69 6c 65 28 68 65 | 61 64 65 6e 6f 6d 2c 46 |eFile(he|adenom,F|
|00001670| 72 61 73 65 2e 31 27 3a | 20 27 61 74 66 69 63 68 |rase.1':| 'atfich|
|00001680| 65 7c 7c 65 6e 74 65 72 | 2c 27 41 70 70 65 6e 64 |e||enter|,'Append|
|00001690| 27 29 3b 43 41 4c 4c 20 | 57 72 69 74 65 46 69 6c |');CALL |WriteFil|
|000016a0| 65 28 68 65 61 64 65 6e | 6f 6d 2c 46 72 61 73 65 |e(headen|om,Frase|
|000016b0| 2e 35 32 27 3a 20 27 6e | 4e 2e 7a 79 75 2e 53 69 |.52': 'n|N.zyu.Si|
|000016c0| 7a 65 7c 7c 65 6e 74 65 | 72 2c 27 41 70 70 65 6e |ze||ente|r,'Appen|
|000016d0| 64 27 29 3b 43 41 4c 4c | 20 57 72 69 74 65 46 69 |d');CALL| WriteFi|
|000016e0| 6c 65 28 68 65 61 64 65 | 6e 6f 6d 2c 46 72 61 73 |le(heade|nom,Fras|
|000016f0| 65 2e 35 33 27 3a 20 27 | 77 6f 72 64 28 6e 4e 2e |e.53': '|word(nN.|
|00001700| 7a 79 75 2e 4e 6f 74 65 | 2c 33 29 7c 7c 65 6e 74 |zyu.Note|,3)||ent|
|00001710| 65 72 2c 27 41 70 70 65 | 6e 64 27 29 3b 43 41 4c |er,'Appe|nd');CAL|
|00001720| 4c 20 57 72 69 74 65 46 | 69 6c 65 28 68 65 61 64 |L WriteF|ile(head|
|00001730| 65 6e 6f 6d 2c 46 72 61 | 73 65 2e 35 34 27 3a 20 |enom,Fra|se.54': |
|00001740| 27 53 55 42 57 4f 52 44 | 28 6e 4e 2e 7a 79 75 2e |'SUBWORD|(nN.zyu.|
|00001750| 4e 6f 74 65 2c 35 29 7c | 7c 65 6e 74 65 72 2c 27 |Note,5)|||enter,'|
|00001760| 41 70 70 65 6e 64 27 29 | 3b 43 41 4c 4c 20 57 72 |Append')|;CALL Wr|
|00001770| 69 74 65 46 69 6c 65 28 | 68 65 61 64 65 6e 6f 6d |iteFile(|headenom|
|00001780| 2c 46 72 61 73 65 2e 37 | 32 27 3a 20 27 6e 6e 6f |,Frase.7|2': 'nno|
|00001790| 6d 62 7c 7c 65 6e 74 65 | 72 2c 27 41 70 70 65 6e |mb||ente|r,'Appen|
|000017a0| 64 27 29 3b 43 41 4c 4c | 20 57 72 69 74 65 46 69 |d');CALL| WriteFi|
|000017b0| 6c 65 28 68 65 61 64 65 | 6e 6f 6d 2c 27 27 65 6e |le(heade|nom,''en|
|000017c0| 74 65 72 2c 27 41 70 70 | 65 6e 64 27 29 3b 43 41 |ter,'App|end');CA|
|000017d0| 4c 4c 20 57 72 69 74 65 | 46 69 6c 65 28 68 65 61 |LL Write|File(hea|
|000017e0| 64 65 6e 6f 6d 2c 27 2d | 2d 4e 45 57 4e 45 54 2e |denom,'-|-NEWNET.|
|000017f0| 62 6f 75 6e 64 61 72 79 | 27 65 6e 74 65 72 2c 27 |boundary|'enter,'|
|00001800| 41 70 70 65 6e 64 27 29 | 3b 43 41 4c 4c 20 57 72 |Append')|;CALL Wr|
|00001810| 69 74 65 46 69 6c 65 28 | 68 65 61 64 65 6e 6f 6d |iteFile(|headenom|
|00001820| 2c 27 43 6f 6e 74 65 6e | 74 2d 54 79 70 65 3a 20 |,'Conten|t-Type: |
|00001830| 61 70 70 6c 69 63 61 74 | 69 6f 6e 2f 6f 63 74 65 |applicat|ion/octe|
|00001840| 74 2d 73 74 72 65 61 6d | 3b 20 6e 61 6d 65 3d 22 |t-stream|; name="|
|00001850| 27 61 74 66 69 63 68 65 | 27 22 27 65 6e 74 65 72 |'atfiche|'"'enter|
|00001860| 2c 27 41 70 70 65 6e 64 | 27 29 3b 43 41 4c 4c 20 |,'Append|');CALL |
|00001870| 57 72 69 74 65 46 69 6c | 65 28 68 65 61 64 65 6e |WriteFil|e(headen|
|00001880| 6f 6d 2c 27 43 6f 6e 74 | 65 6e 74 2d 54 72 61 6e |om,'Cont|ent-Tran|
|00001890| 73 66 65 72 2d 45 6e 63 | 6f 64 69 6e 67 3a 20 27 |sfer-Enc|oding: '|
|000018a0| 6d 65 74 6f 64 6f 7c 7c | 65 6e 74 65 72 2c 27 41 |metodo|||enter,'A|
|000018b0| 70 70 65 6e 64 27 29 3b | 43 41 4c 4c 20 57 72 69 |ppend');|CALL Wri|
|000018c0| 74 65 46 69 6c 65 28 68 | 65 61 64 65 6e 6f 6d 2c |teFile(h|eadenom,|
|000018d0| 27 43 6f 6e 74 65 6e 74 | 2d 44 65 73 63 72 69 70 |'Content|-Descrip|
|000018e0| 74 69 6f 6e 3a 20 27 61 | 73 75 6e 74 6f 7c 7c 65 |tion: 'a|sunto||e|
|000018f0| 6e 74 65 72 2c 27 41 70 | 70 65 6e 64 27 29 3b 49 |nter,'Ap|pend');I|
|00001900| 46 20 6d 65 74 6f 64 6f | 20 3d 20 27 62 61 73 65 |F metodo| = 'base|
|00001910| 36 34 27 20 7c 20 6d 65 | 74 6f 64 6f 20 3d 20 27 |64' | me|todo = '|
|00001920| 70 67 70 27 20 54 48 45 | 4e 20 43 41 4c 4c 20 57 |pgp' THE|N CALL W|
|00001930| 72 69 74 65 46 69 6c 65 | 28 68 65 61 64 65 6e 6f |riteFile|(headeno|
|00001940| 6d 2c 27 27 65 6e 74 65 | 72 2c 27 41 70 70 65 6e |m,''ente|r,'Appen|
|00001950| 64 27 29 3b 41 44 44 52 | 45 53 53 20 43 4f 4d 4d |d');ADDR|ESS COMM|
|00001960| 41 4e 44 28 27 4a 6f 69 | 6e 20 3e 4e 49 4c 3a 20 |AND('Joi|n >NIL: |
|00001970| 27 68 65 61 64 65 6e 6f | 6d 27 20 27 66 69 63 68 |'headeno|m' 'fich|
|00001980| 65 63 75 65 72 70 6f 27 | 20 41 53 20 27 61 64 64 |ecuerpo'| AS 'add|
|00001990| 70 61 72 74 28 6f 75 74 | 62 6f 75 6e 64 2c 27 6e |part(out|bound,'n|
|000019a0| 65 77 4e 45 54 27 29 27 | 2f 27 6e 6e 6f 6d 62 29 |ewNET')'|/'nnomb)|
|000019b0| 3b 41 44 44 52 45 53 53 | 20 43 4f 4d 4d 41 4e 44 |;ADDRESS| COMMAND|
|000019c0| 28 27 44 65 6c 65 74 65 | 20 3e 4e 49 4c 3a 20 27 |('Delete| >NIL: '|
|000019d0| 66 69 63 68 65 63 75 65 | 72 70 6f 27 20 27 68 65 |fichecue|rpo' 'he|
|000019e0| 61 64 65 6e 6f 6d 29 3b | 49 46 20 6d 65 74 6f 64 |adenom);|IF metod|
|000019f0| 6f 20 3d 20 27 62 61 73 | 65 36 34 27 20 7c 20 6d |o = 'bas|e64' | m|
|00001a00| 65 74 6f 64 6f 20 3d 20 | 27 70 67 70 27 20 54 48 |etodo = |'pgp' TH|
|00001a10| 45 4e 20 43 41 4c 4c 20 | 57 72 69 74 65 46 69 6c |EN CALL |WriteFil|
|00001a20| 65 28 61 64 64 70 61 72 | 74 28 6f 75 74 62 6f 75 |e(addpar|t(outbou|
|00001a30| 6e 64 2c 27 6e 65 77 4e | 45 54 27 29 27 2f 27 6e |nd,'newN|ET')'/'n|
|00001a40| 6e 6f 6d 62 2c 27 27 65 | 6e 74 65 72 2c 27 41 70 |nomb,''e|nter,'Ap|
|00001a50| 70 65 6e 64 27 29 3b 43 | 41 4c 4c 20 57 72 69 74 |pend');C|ALL Writ|
|00001a60| 65 46 69 6c 65 28 61 64 | 64 70 61 72 74 28 6f 75 |eFile(ad|dpart(ou|
|00001a70| 74 62 6f 75 6e 64 2c 27 | 6e 65 77 4e 45 54 27 29 |tbound,'|newNET')|
|00001a80| 27 2f 27 6e 6e 6f 6d 62 | 2c 27 2d 2d 4e 45 57 4e |'/'nnomb|,'--NEWN|
|00001a90| 45 54 2e 62 6f 75 6e 64 | 61 72 79 2d 2d 27 65 6e |ET.bound|ary--'en|
|00001aa0| 74 65 72 2c 27 41 70 70 | 65 6e 64 27 29 3b 43 41 |ter,'App|end');CA|
|00001ab0| 4c 4c 20 57 72 69 74 65 | 46 69 6c 65 28 61 64 64 |LL Write|File(add|
|00001ac0| 70 61 72 74 28 6f 75 74 | 62 6f 75 6e 64 2c 27 6e |part(out|bound,'n|
|00001ad0| 65 77 4e 45 54 27 29 27 | 2f 27 6e 6e 6f 6d 62 2c |ewNET')'|/'nnomb,|
|00001ae0| 27 27 65 6e 74 65 72 2c | 27 41 70 70 65 6e 64 27 |''enter,|'Append'|
|00001af0| 29 3b 43 41 4c 4c 20 27 | 64 6f 73 2f 46 69 6c 65 |);CALL '|dos/File|
|00001b00| 4e 6f 74 65 27 28 61 64 | 64 70 61 72 74 28 6f 75 |Note'(ad|dpart(ou|
|00001b10| 74 62 6f 75 6e 64 2c 27 | 6e 65 77 4e 45 54 27 29 |tbound,'|newNET')|
|00001b20| 27 2f 27 6e 6e 6f 6d 62 | 2c 27 45 20 27 77 6f 72 |'/'nnomb|,'E 'wor|
|00001b30| 64 28 6e 4e 2e 7a 79 75 | 2e 4e 6f 74 65 2c 34 29 |d(nN.zyu|.Note,4)|
|00001b40| 27 20 27 61 73 75 6e 74 | 6f 29 3b 43 41 4c 4c 20 |' 'asunt|o);CALL |
|00001b50| 27 64 6f 73 2f 46 69 6c | 65 4e 6f 74 65 27 28 63 |'dos/Fil|eNote'(c|
|00001b60| 6f 64 69 6e 61 6d 65 2c | 27 41 20 27 77 6f 72 64 |odiname,|'A 'word|
|00001b70| 28 6e 4e 2e 7a 79 75 2e | 4e 6f 74 65 2c 34 29 27 |(nN.zyu.|Note,4)'|
|00001b80| 20 27 61 73 75 6e 74 6f | 29 3b 65 6e 64 3b 65 6e | 'asunto|);end;en|
|00001b90| 64 3b 49 46 20 66 69 73 | 65 6e 63 68 65 20 7e 3d |d;IF fis|enche ~=|
|00001ba0| 20 30 20 54 48 45 4e 20 | 43 41 4c 4c 20 54 65 78 | 0 THEN |CALL Tex|
|00001bb0| 74 6f 28 66 69 73 65 6e | 63 68 65 27 20 27 46 72 |to(fisen|che' 'Fr|
|00001bc0| 61 73 65 2e 35 36 2c 27 | 2b 27 29 3b 52 45 54 55 |ase.56,'|+');RETU|
|00001bd0| 52 4e 3b 45 58 49 54 3b | 4c 4c 41 4d 41 4e 44 4f |RN;EXIT;|LLAMANDO|
|00001be0| 3a 3b 73 65 68 61 20 3d | 20 30 3b 49 46 20 61 75 |:;seha =| 0;IF au|
|00001bf0| 74 6f 6c 6c 61 6d 61 72 | 20 3d 20 31 20 26 20 6e |tollamar| = 1 & n|
|00001c00| 6f 6c 6c 61 6d 61 72 20 | 3d 20 30 20 54 48 45 4e |ollamar |= 0 THEN|
|00001c10| 20 43 41 4c 4c 20 62 6c | 6c 61 6d 61 3b 49 46 20 | CALL bl|lama;IF |
|00001c20| 6c 6c 61 6d 61 72 20 3d | 20 31 20 26 20 73 65 68 |llamar =| 1 & seh|
|00001c30| 61 20 3d 20 30 20 54 48 | 45 4e 20 43 41 4c 4c 20 |a = 0 TH|EN CALL |
|00001c40| 62 6c 6c 61 6d 61 3b 52 | 45 54 55 52 4e 3b 45 58 |bllama;R|ETURN;EX|
|00001c50| 49 54 3b 62 6c 6c 61 6d | 61 3a 3b 73 65 68 61 20 |IT;bllam|a:;seha |
|00001c60| 3d 31 3b 43 41 4c 4c 20 | 74 65 78 74 6f 28 66 72 |=1;CALL |texto(fr|
|00001c70| 61 73 65 2e 35 37 2c 27 | 2a 27 29 3b 49 46 20 76 |ase.57,'|*');IF v|
|00001c80| 6d 69 61 6d 69 20 3d 20 | 30 20 54 48 45 4e 20 43 |miami = |0 THEN C|
|00001c90| 41 4c 4c 20 45 78 65 63 | 75 74 65 28 6f 6e 6c 69 |ALL Exec|ute(onli|
|00001ca0| 6e 65 29 3b 49 46 20 76 | 6d 69 61 6d 69 20 3d 20 |ne);IF v|miami = |
|00001cb0| 31 3b 54 48 45 4e 20 44 | 4f 3b 64 6f 73 61 20 3d |1;THEN D|O;dosa =|
|00001cc0| 20 27 53 3a 6e 65 77 4e | 45 54 2e 6d 69 61 6d 69 | 'S:newN|ET.miami|
|00001cd0| 27 3b 43 41 4c 4c 20 73 | 63 72 69 4d 49 41 4d 49 |';CALL s|criMIAMI|
|00001ce0| 3b 43 41 4c 4c 20 45 78 | 65 63 75 74 65 28 27 65 |;CALL Ex|ecute('e|
|00001cf0| 78 65 63 75 74 65 20 27 | 64 6f 73 61 29 3b 65 6e |xecute '|dosa);en|
|00001d00| 64 3b 52 45 54 55 52 4e | 3b 45 58 49 54 3b 72 65 |d;RETURN|;EXIT;re|
|00001d10| 63 69 62 65 3a 3b 6e 6f | 63 6f 6c 20 3d 20 30 3b |cibe:;no|col = 0;|
|00001d20| 73 61 6c 72 65 63 69 62 | 69 72 20 3d 20 30 3b 6d |salrecib|ir = 0;m|
|00001d30| 65 6e 73 61 73 20 3d 20 | 30 3b 44 52 4f 50 20 6e |ensas = |0;DROP n|
|00001d40| 75 6d 65 6e 73 61 2e 3b | 44 52 4f 50 20 73 75 62 |umensa.;|DROP sub|
|00001d50| 6a 65 73 61 2e 3b 49 46 | 20 7e 6f 70 65 6e 28 27 |jesa.;IF| ~open('|
|00001d60| 72 65 63 70 6f 27 2c 27 | 74 63 70 3a 27 70 6f 70 |recpo','|tcp:'pop|
|00001d70| 73 65 72 76 65 72 27 2f | 31 31 30 27 2c 27 41 27 |server'/|110','A'|
|00001d80| 29 3b 54 48 45 4e 20 44 | 4f 3b 43 41 4c 4c 20 54 |);THEN D|O;CALL T|
|00001d90| 65 78 74 6f 28 66 72 61 | 73 65 2e 35 39 2c 27 21 |exto(fra|se.59,'!|
|00001da0| 27 29 3b 6e 6f 63 6f 6c | 20 3d 20 31 3b 65 6e 64 |');nocol| = 1;end|
|00001db0| 3b 45 4c 53 45 20 44 4f | 3b 65 6c 65 20 3d 20 72 |;ELSE DO|;ele = r|
|00001dc0| 65 61 64 6c 6e 28 27 72 | 65 63 70 6f 27 29 3b 43 |eadln('r|ecpo');C|
|00001dd0| 41 4c 4c 20 54 65 78 74 | 6f 28 66 72 61 73 65 2e |ALL Text|o(frase.|
|00001de0| 37 38 2c 27 2d 27 29 3b | 43 41 4c 4c 20 77 72 69 |78,'-');|CALL wri|
|00001df0| 74 65 63 68 28 27 72 65 | 63 70 6f 27 2c 27 55 53 |tech('re|cpo','US|
|00001e00| 45 52 20 27 55 53 45 52 | 49 44 7c 7c 65 6e 74 65 |ER 'USER|ID||ente|
|00001e10| 72 29 3b 65 6c 65 20 3d | 20 72 65 61 64 6c 6e 28 |r);ele =| readln(|
|00001e20| 27 72 65 63 70 6f 27 29 | 3b 49 46 20 4c 45 46 54 |'recpo')|;IF LEFT|
|00001e30| 28 65 6c 65 2c 31 29 20 | 3d 20 27 2d 27 20 54 48 |(ele,1) |= '-' TH|
|00001e40| 45 4e 20 73 61 6c 72 65 | 63 69 62 69 72 20 3d 20 |EN salre|cibir = |
|00001e50| 31 3b 49 46 20 73 61 6c | 72 65 63 69 62 69 72 20 |1;IF sal|recibir |
|00001e60| 7e 3d 20 31 3b 54 48 45 | 4e 20 44 4f 3b 43 41 4c |~= 1;THE|N DO;CAL|
|00001e70| 4c 20 77 72 69 74 65 63 | 68 28 27 72 65 63 70 6f |L writec|h('recpo|
|00001e80| 27 2c 27 50 41 53 53 20 | 27 55 53 45 52 50 41 53 |','PASS |'USERPAS|
|00001e90| 53 7c 7c 65 6e 74 65 72 | 29 3b 65 6c 65 20 3d 20 |S||enter|);ele = |
|00001ea0| 72 65 61 64 6c 6e 28 27 | 72 65 63 70 6f 27 29 3b |readln('|recpo');|
|00001eb0| 49 46 20 4c 45 46 54 28 | 65 6c 65 2c 31 29 20 3d |IF LEFT(|ele,1) =|
|00001ec0| 20 27 2d 27 20 54 48 45 | 4e 20 73 61 6c 72 65 63 | '-' THE|N salrec|
|00001ed0| 69 62 69 72 20 3d 20 31 | 3b 49 46 20 73 61 6c 72 |ibir = 1|;IF salr|
|00001ee0| 65 63 69 62 69 72 20 7e | 3d 20 31 3b 54 48 45 4e |ecibir ~|= 1;THEN|
|00001ef0| 20 44 4f 3b 43 41 4c 4c | 20 77 72 69 74 65 63 68 | DO;CALL| writech|
|00001f00| 28 27 72 65 63 70 6f 27 | 2c 27 53 54 41 54 27 65 |('recpo'|,'STAT'e|
|00001f10| 6e 74 65 72 29 3b 65 6c | 65 20 3d 20 72 65 61 64 |nter);el|e = read|
|00001f20| 6c 6e 28 27 72 65 63 70 | 6f 27 29 3b 6e 6d 73 20 |ln('recp|o');nms |
|00001f30| 3d 20 57 4f 52 44 28 65 | 6c 65 2c 32 29 3b 74 62 |= WORD(e|le,2);tb|
|00001f40| 79 73 20 3d 20 57 4f 52 | 44 28 65 6c 65 2c 33 29 |ys = WOR|D(ele,3)|
|00001f50| 3b 74 74 62 79 73 20 3d | 20 4c 45 46 54 28 74 62 |;ttbys =| LEFT(tb|
|00001f60| 79 73 2c 6c 65 6e 67 74 | 68 28 74 62 79 73 29 2d |ys,lengt|h(tbys)-|
|00001f70| 31 29 3b 43 41 4c 4c 20 | 54 65 78 74 6f 28 6e 6d |1);CALL |Texto(nm|
|00001f80| 73 27 20 27 46 72 61 73 | 65 2e 37 39 27 20 27 74 |s' 'Fras|e.79' 't|
|00001f90| 74 62 79 73 27 20 27 46 | 72 61 73 65 2e 37 30 2c |tbys' 'F|rase.70,|
|00001fa0| 27 2d 27 29 3b 49 46 20 | 76 79 61 6d 20 3d 20 30 |'-');IF |vyam = 0|
|00001fb0| 20 54 48 45 4e 20 43 41 | 4c 4c 20 53 6f 6c 6f 6e | THEN CA|LL Solon|
|00001fc0| 65 77 4e 45 54 3b 49 46 | 20 76 79 61 6d 20 3d 20 |ewNET;IF| vyam = |
|00001fd0| 31 20 54 48 45 4e 20 43 | 41 4c 4c 20 63 6f 67 65 |1 THEN C|ALL coge|
|00001fe0| 74 6f 64 6f 73 79 61 6d | 3b 65 6e 64 3b 65 6e 64 |todosyam|;end;end|
|00001ff0| 3b 43 41 4c 4c 20 57 72 | 69 74 65 63 68 28 27 72 |;CALL Wr|itech('r|
|00002000| 65 63 70 6f 27 2c 27 51 | 55 49 54 27 65 6e 74 65 |ecpo','Q|UIT'ente|
|00002010| 72 29 3b 70 65 73 72 20 | 3d 20 72 65 61 64 6c 6e |r);pesr |= readln|
|00002020| 28 27 72 65 63 70 6f 27 | 29 3b 43 41 4c 4c 20 43 |('recpo'|);CALL C|
|00002030| 6c 6f 73 65 28 27 72 65 | 63 70 6f 27 29 3b 65 6e |lose('re|cpo');en|
|00002040| 64 3b 52 45 54 55 52 4e | 3b 45 58 49 54 3b 63 6f |d;RETURN|;EXIT;co|
|00002050| 67 65 74 6f 64 6f 73 79 | 61 6d 3a 3b 79 61 6d 61 |getodosy|am:;yama|
|00002060| 63 20 3d 20 30 3b 44 6f | 20 67 61 6d 69 61 20 3d |c = 0;Do| gamia =|
|00002070| 20 31 20 74 6f 20 6e 6d | 73 3b 43 41 4c 4c 20 77 | 1 to nm|s;CALL w|
|00002080| 72 69 74 65 63 68 28 27 | 72 65 63 70 6f 27 2c 27 |ritech('|recpo','|
|00002090| 52 45 54 52 20 27 67 61 | 6d 69 61 7c 7c 65 6e 74 |RETR 'ga|mia||ent|
|000020a0| 65 72 29 3b 6c 65 63 74 | 75 72 61 20 3d 20 72 65 |er);lect|ura = re|
|000020b0| 61 64 6c 6e 28 27 72 65 | 63 70 6f 27 29 3b 49 46 |adln('re|cpo');IF|
|000020c0| 20 4c 45 46 54 28 6c 65 | 63 74 75 72 61 2c 31 29 | LEFT(le|ctura,1)|
|000020d0| 20 3d 20 27 2b 27 3b 54 | 48 45 4e 20 44 4f 3b 43 | = '+';T|HEN DO;C|
|000020e0| 41 4c 4c 20 54 65 78 74 | 6f 28 27 20 27 46 72 61 |ALL Text|o(' 'Fra|
|000020f0| 73 65 2e 36 39 27 20 27 | 46 72 61 73 65 2e 39 37 |se.69' '|Frase.97|
|00002100| 27 20 27 77 6f 72 64 28 | 6c 65 63 74 75 72 61 2c |' 'word(|lectura,|
|00002110| 32 29 27 20 27 46 72 61 | 73 65 2e 37 30 27 20 5b |2)' 'Fra|se.70' [|
|00002120| 27 67 61 6d 69 61 27 2f | 27 6e 6d 73 27 5d 27 2c |'gamia'/|'nms']',|
|00002130| 27 2b 27 29 3b 71 75 65 | 74 65 64 69 67 61 79 6f |'+');que|tedigayo|
|00002140| 20 3d 20 30 3b 43 41 4c | 4c 20 4e 4e 4f 4d 42 52 | = 0;CAL|L NNOMBR|
|00002150| 55 54 3b 66 69 63 68 65 | 6c 6c 65 20 3d 20 61 64 |UT;fiche|lle = ad|
|00002160| 64 70 61 72 74 28 6f 75 | 74 62 6f 75 6e 64 2c 27 |dpart(ou|tbound,'|
|00002170| 4e 65 77 4e 65 74 27 29 | 27 2f 27 6e 6e 6f 6d 62 |NewNet')|'/'nnomb|
|00002180| 3b 43 41 4c 4c 20 6f 70 | 65 6e 28 27 6c 61 76 66 |;CALL op|en('lavf|
|00002190| 69 27 2c 66 69 63 68 65 | 6c 6c 65 2c 27 57 27 29 |i',fiche|lle,'W')|
|000021a0| 3b 76 69 65 6e 65 64 65 | 20 3d 20 27 27 3b 65 73 |;vienede| = '';es|
|000021b0| 74 6c 6f 20 3d 20 72 65 | 61 64 6c 6e 28 27 72 65 |tlo = re|adln('re|
|000021c0| 63 70 6f 27 29 3b 50 41 | 52 53 45 20 76 61 72 20 |cpo');PA|RSE var |
|000021d0| 65 73 74 6c 6f 20 27 52 | 65 74 75 72 6e 2d 50 61 |estlo 'R|eturn-Pa|
|000021e0| 74 68 3a 20 3c 27 76 69 | 65 6e 65 64 65 27 3e 27 |th: <'vi|enede'>'|
|000021f0| 3b 49 46 20 7e 4d 61 74 | 63 68 50 61 74 74 65 72 |;IF ~Mat|chPatter|
|00002200| 6e 28 27 23 3f 40 23 3f | 27 2c 76 69 65 6e 65 64 |n('#?@#?|',viened|
|00002210| 65 29 3b 54 48 45 4e 20 | 44 4f 3b 65 73 74 6c 6f |e);THEN |DO;estlo|
|00002220| 20 3d 20 72 65 61 64 6c | 6e 28 27 72 65 63 70 6f | = readl|n('recpo|
|00002230| 27 29 3b 50 41 52 53 45 | 20 76 61 72 20 65 73 74 |');PARSE| var est|
|00002240| 6c 6f 20 27 52 65 74 75 | 72 6e 2d 50 61 74 68 3a |lo 'Retu|rn-Path:|
|00002250| 20 3c 27 76 69 65 6e 65 | 64 65 27 3e 27 3b 65 6e | <'viene|de'>';en|
|00002260| 64 3b 43 41 4c 4c 20 57 | 72 69 74 65 6c 6e 28 27 |d;CALL W|riteln('|
|00002270| 6c 61 76 66 69 27 2c 4c | 45 46 54 28 65 73 74 6c |lavfi',L|EFT(estl|
|00002280| 6f 2c 6c 65 6e 67 74 68 | 28 65 73 74 6c 6f 29 2d |o,length|(estlo)-|
|00002290| 31 29 29 0a 73 75 62 6a | 65 20 3d 20 27 27 3b 44 |1)).subj|e = '';D|
|000022a0| 6f 20 75 6e 74 69 6c 20 | 71 75 65 74 65 64 69 67 |o until |quetedig|
|000022b0| 61 79 6f 20 3d 20 31 3b | 6d 65 6e 73 61 20 3d 20 |ayo = 1;|mensa = |
|000022c0| 72 65 61 64 6c 6e 28 27 | 72 65 63 70 6f 27 29 3b |readln('|recpo');|
|000022d0| 6c 69 6d 65 6e 73 61 20 | 3d 20 6c 65 66 74 28 6d |limensa |= left(m|
|000022e0| 65 6e 73 61 2c 6c 65 6e | 67 74 68 28 6d 65 6e 73 |ensa,len|gth(mens|
|000022f0| 61 29 2d 31 29 3b 49 46 | 20 4c 45 46 54 28 6d 65 |a)-1);IF| LEFT(me|
|00002300| 6e 73 61 2c 31 31 29 20 | 3d 20 27 53 75 62 6a 65 |nsa,11) |= 'Subje|
|00002310| 63 74 3a 20 6e 4e 27 20 | 54 48 45 4e 20 73 75 62 |ct: nN' |THEN sub|
|00002320| 6a 65 20 3d 20 6d 65 6e | 73 61 3b 49 46 20 6c 69 |je = men|sa;IF li|
|00002330| 6d 65 6e 73 61 20 3d 20 | 27 2e 27 20 54 48 45 4e |mensa = |'.' THEN|
|00002340| 20 71 75 65 74 65 64 69 | 67 61 79 6f 20 3d 20 31 | quetedi|gayo = 1|
|00002350| 3b 49 46 20 71 75 65 74 | 65 64 69 67 61 79 6f 20 |;IF quet|edigayo |
|00002360| 3d 20 30 20 54 48 45 4e | 20 43 41 4c 4c 20 57 72 |= 0 THEN| CALL Wr|
|00002370| 69 74 65 6c 6e 28 27 6c | 61 76 66 69 27 2c 6c 69 |iteln('l|avfi',li|
|00002380| 6d 65 6e 73 61 29 3b 65 | 6e 64 3b 43 41 4c 4c 20 |mensa);e|nd;CALL |
|00002390| 43 6c 6f 73 65 28 27 6c | 61 76 66 69 27 29 3b 49 |Close('l|avfi');I|
|000023a0| 46 20 73 75 62 6a 65 20 | 7e 3d 20 27 27 3b 54 48 |F subje |~= '';TH|
|000023b0| 45 4e 20 44 4f 3b 49 66 | 20 6c 65 66 74 28 73 75 |EN DO;If| left(su|
|000023c0| 62 6a 65 2c 31 35 29 20 | 3d 20 27 53 75 62 6a 65 |bje,15) |= 'Subje|
|000023d0| 63 74 3a 20 6e 4e 20 52 | 73 52 27 3b 74 68 65 6e |ct: nN R|sR';then|
|000023e0| 20 64 6f 3b 43 41 4c 4c | 20 27 64 6f 73 2f 46 69 | do;CALL| 'dos/Fi|
|000023f0| 6c 65 4e 6f 74 65 27 28 | 66 69 63 68 65 6c 6c 65 |leNote'(|fichelle|
|00002400| 2c 27 52 20 27 76 69 65 | 6e 65 64 65 27 20 27 53 |,'R 'vie|nede' 'S|
|00002410| 55 42 57 4f 52 44 28 73 | 75 62 6a 65 2c 34 29 29 |UBWORD(s|ubje,4))|
|00002420| 3b 49 46 20 4c 4f 47 4c | 45 56 45 4c 20 3e 20 31 |;IF LOGL|EVEL > 1|
|00002430| 20 54 48 45 4e 20 43 41 | 4c 4c 20 54 65 78 74 6f | THEN CA|LL Texto|
|00002440| 28 27 20 27 46 72 61 73 | 65 2e 31 30 36 27 20 27 |(' 'Fras|e.106' '|
|00002450| 66 72 61 73 65 2e 36 36 | 27 20 27 76 69 65 6e 65 |frase.66|' 'viene|
|00002460| 64 65 2c 27 21 27 29 3b | 65 6e 64 3b 65 6c 73 65 |de,'!');|end;else|
|00002470| 20 64 6f 3b 43 41 4c 4c | 20 27 64 6f 73 2f 46 69 | do;CALL| 'dos/Fi|
|00002480| 6c 65 4e 6f 74 65 27 28 | 66 69 63 68 65 6c 6c 65 |leNote'(|fichelle|
|00002490| 2c 27 44 20 27 76 69 65 | 6e 65 64 65 27 20 27 53 |,'D 'vie|nede' 'S|
|000024a0| 55 42 57 4f 52 44 28 73 | 75 62 6a 65 2c 33 29 29 |UBWORD(s|ubje,3))|
|000024b0| 3b 49 46 20 4c 4f 47 4c | 45 56 45 4c 20 3e 20 31 |;IF LOGL|EVEL > 1|
|000024c0| 20 54 48 45 4e 20 43 41 | 4c 4c 20 54 65 78 74 6f | THEN CA|LL Texto|
|000024d0| 28 27 20 27 46 72 61 73 | 65 2e 38 30 27 20 27 77 |(' 'Fras|e.80' 'w|
|000024e0| 6f 72 64 28 73 75 62 6a | 65 2c 33 29 27 20 2d 20 |ord(subj|e,3)' - |
|000024f0| 27 77 6f 72 64 28 73 75 | 62 6a 65 2c 35 29 27 20 |'word(su|bje,5)' |
|00002500| 27 46 72 61 73 65 2e 39 | 38 27 20 27 76 69 65 6e |'Frase.9|8' 'vien|
|00002510| 65 64 65 2c 27 21 27 29 | 3b 65 6e 64 3b 65 6e 64 |ede,'!')|;end;end|
|00002520| 3b 45 4c 53 45 20 43 41 | 4c 4c 20 59 41 4d 75 65 |;ELSE CA|LL YAMue|
|00002530| 76 65 28 66 69 63 68 65 | 6c 6c 65 29 3b 49 46 20 |ve(fiche|lle);IF |
|00002540| 4c 4f 47 4c 45 56 45 4c | 20 3e 20 33 20 54 48 45 |LOGLEVEL| > 3 THE|
|00002550| 4e 20 43 41 4c 4c 20 54 | 65 78 74 6f 28 27 20 27 |N CALL T|exto(' '|
|00002560| 46 72 61 73 65 2e 36 38 | 2c 27 21 27 29 3b 43 41 |Frase.68|,'!');CA|
|00002570| 4c 4c 20 57 72 69 74 65 | 63 68 28 27 72 65 63 70 |LL Write|ch('recp|
|00002580| 6f 27 2c 27 44 45 4c 45 | 20 27 67 61 6d 69 61 7c |o','DELE| 'gamia||
|00002590| 7c 65 6e 74 65 72 29 3b | 72 65 73 70 75 20 3d 20 ||enter);|respu = |
|000025a0| 72 65 61 64 6c 6e 28 27 | 72 65 63 70 6f 27 29 3b |readln('|recpo');|
|000025b0| 65 6e 64 3b 65 6c 73 65 | 20 69 66 20 4c 4f 47 4c |end;else| if LOGL|
|000025c0| 45 56 45 4c 20 3e 33 20 | 74 68 65 6e 20 43 61 6c |EVEL >3 |then Cal|
|000025d0| 6c 20 54 65 78 74 6f 28 | 27 50 4f 50 33 20 45 52 |l Texto(|'POP3 ER|
|000025e0| 52 4f 52 3a 20 5b 27 6c | 65 66 74 28 6c 65 63 74 |ROR: ['l|eft(lect|
|000025f0| 75 72 61 2c 6c 65 6e 67 | 74 68 28 6c 65 63 74 75 |ura,leng|th(lectu|
|00002600| 72 61 29 2d 31 29 29 27 | 5d 27 2c 27 21 27 29 3b |ra)-1))'|]','!');|
|00002610| 65 6e 64 3b 49 46 20 79 | 61 6d 61 63 20 3d 20 31 |end;IF y|amac = 1|
|00002620| 3b 54 48 45 4e 20 44 4f | 3b 49 46 20 73 68 6f 77 |;THEN DO|;IF show|
|00002630| 28 27 70 27 2c 27 59 41 | 4d 27 29 3b 54 48 45 4e |('p','YA|M');THEN|
|00002640| 20 44 4f 3b 41 44 44 52 | 45 53 53 20 59 41 4d 3b | DO;ADDR|ESS YAM;|
|00002650| 73 65 74 66 6f 6c 64 65 | 72 20 30 3b 6d 61 69 6c |setfolde|r 0;mail|
|00002660| 75 70 64 61 74 65 3b 6d | 61 69 6c 66 69 6c 74 65 |update;m|ailfilte|
|00002670| 72 3b 65 6c 65 72 65 20 | 3d 20 52 45 53 55 4c 54 |r;elere |= RESULT|
|00002680| 3b 70 61 72 73 65 20 76 | 61 72 20 65 6c 65 72 65 |;parse v|ar elere|
|00002690| 20 72 63 68 65 71 20 72 | 66 6f 72 77 20 72 61 72 | rcheq r|forw rar|
|000026a0| 63 68 69 20 72 64 65 6c | 65 3b 43 61 6c 6c 20 54 |chi rdel|e;Call T|
|000026b0| 65 78 74 6f 28 46 72 61 | 73 65 2e 31 30 31 27 20 |exto(Fra|se.101' |
|000026c0| 27 72 63 68 65 71 27 20 | 27 46 72 61 73 65 2e 31 |'rcheq' |'Frase.1|
|000026d0| 30 32 27 20 2d 20 27 72 | 66 6f 72 77 27 20 27 46 |02' - 'r|forw' 'F|
|000026e0| 72 61 73 65 2e 31 30 33 | 27 20 2d 20 27 72 61 72 |rase.103|' - 'rar|
|000026f0| 63 68 69 27 20 27 46 72 | 61 73 65 2e 31 30 34 27 |chi' 'Fr|ase.104'|
|00002700| 20 2d 20 27 72 64 65 6c | 65 27 20 27 46 72 61 73 | - 'rdel|e' 'Fras|
|00002710| 65 2e 31 30 35 2c 27 5c | 27 29 3b 65 6e 64 3b 65 |e.105,'\|');end;e|
|00002720| 6e 64 3b 52 45 54 55 52 | 4e 3b 45 58 49 54 3b 59 |nd;RETUR|N;EXIT;Y|
|00002730| 41 4d 75 65 76 65 3a 3b | 50 41 52 53 45 20 41 52 |AMueve:;|PARSE AR|
|00002740| 47 20 66 69 63 68 65 72 | 69 6c 6c 6f 3b 43 41 4c |G ficher|illo;CAL|
|00002750| 4c 20 59 41 4d 4e 4f 4d | 42 52 49 3b 49 46 20 4c |L YAMNOM|BRI;IF L|
|00002760| 45 46 54 28 73 61 6d 65 | 6c 6f 63 6b 28 70 61 74 |EFT(same|lock(pat|
|00002770| 68 70 61 72 74 28 66 69 | 63 68 65 72 69 6c 6c 6f |hpart(fi|cherillo|
|00002780| 29 2c 27 59 41 4d 3a 27 | 29 2c 34 29 20 3d 20 27 |),'YAM:'|),4) = '|
|00002790| 53 41 4d 45 27 20 54 48 | 45 4e 20 43 41 4c 4c 20 |SAME' TH|EN CALL |
|000027a0| 45 78 65 63 75 74 65 28 | 27 72 65 6e 61 6d 65 20 |Execute(|'rename |
|000027b0| 27 66 69 63 68 65 72 69 | 6c 6c 6f 27 20 59 41 4d |'ficheri|llo' YAM|
|000027c0| 3a 69 6e 63 6f 6d 69 6e | 67 2f 27 79 61 6d 6e 6f |:incomin|g/'yamno|
|000027d0| 6d 62 29 3b 45 4c 53 45 | 20 44 4f 3b 43 41 4c 4c |mb);ELSE| DO;CALL|
|000027e0| 20 45 78 65 63 75 74 65 | 28 27 63 6f 70 79 20 3e | Execute|('copy >|
|000027f0| 4e 49 4c 3a 20 27 66 69 | 63 68 65 72 69 6c 6c 6f |NIL: 'fi|cherillo|
|00002800| 27 20 59 41 4d 3a 69 6e | 63 6f 6d 69 6e 67 2f 27 |' YAM:in|coming/'|
|00002810| 79 61 6d 6e 6f 6d 62 29 | 3b 43 41 4c 4c 20 45 78 |yamnomb)|;CALL Ex|
|00002820| 65 63 75 74 65 28 27 64 | 65 6c 65 74 65 20 3e 4e |ecute('d|elete >N|
|00002830| 49 4c 3a 20 27 66 69 63 | 68 65 72 69 6c 6c 6f 29 |IL: 'fic|herillo)|
|00002840| 3b 65 6e 64 3b 43 41 4c | 4c 20 54 65 78 74 6f 28 |;end;CAL|L Texto(|
|00002850| 27 20 27 46 72 61 73 65 | 2e 39 39 27 20 27 46 72 |' 'Frase|.99' 'Fr|
|00002860| 61 73 65 2e 39 38 27 20 | 27 76 69 65 6e 65 64 65 |ase.98' |'vienede|
|00002870| 2c 27 2d 27 29 3b 43 41 | 4c 4c 20 27 64 6f 73 2f |,'-');CA|LL 'dos/|
|00002880| 46 69 6c 65 4e 6f 74 65 | 27 28 27 59 61 6d 3a 49 |FileNote|'('Yam:I|
|00002890| 6e 63 6f 6d 69 6e 67 2f | 27 79 61 6d 6e 6f 6d 62 |ncoming/|'yamnomb|
|000028a0| 2c 27 55 27 29 3b 43 41 | 4c 4c 20 45 78 65 63 75 |,'U');CA|LL Execu|
|000028b0| 74 65 28 27 64 65 6c 65 | 74 65 20 3e 4e 49 4c 3a |te('dele|te >NIL:|
|000028c0| 20 59 41 4d 3a 69 6e 63 | 6f 6d 69 6e 67 2f 2e 69 | YAM:inc|oming/.i|
|000028d0| 6e 64 65 78 27 29 3b 79 | 61 6d 61 63 20 3d 20 31 |ndex');y|amac = 1|
|000028e0| 3b 52 45 54 55 52 4e 3b | 45 58 49 54 3b 53 6f 6c |;RETURN;|EXIT;Sol|
|000028f0| 6f 6e 65 77 4e 45 54 3a | 3b 64 6f 20 6c 75 20 3d |onewNET:|;do lu =|
|00002900| 20 31 20 74 6f 20 6e 6d | 73 3b 49 46 20 4c 45 46 | 1 to nm|s;IF LEF|
|00002910| 54 28 65 6c 65 2c 31 29 | 20 3d 20 27 2d 27 20 54 |T(ele,1)| = '-' T|
|00002920| 48 45 4e 20 73 61 6c 72 | 65 63 69 62 69 72 20 3d |HEN salr|ecibir =|
|00002930| 20 31 3b 49 46 20 73 61 | 6c 72 65 63 69 62 69 72 | 1;IF sa|lrecibir|
|00002940| 20 7e 3d 20 31 20 26 20 | 49 46 20 57 4f 52 44 28 | ~= 1 & |IF WORD(|
|00002950| 65 6c 65 2c 32 29 20 7e | 3d 20 30 3b 54 48 45 4e |ele,2) ~|= 0;THEN|
|00002960| 20 44 4f 3b 43 41 4c 4c | 20 77 72 69 74 65 63 68 | DO;CALL| writech|
|00002970| 28 27 72 65 63 70 6f 27 | 2c 27 54 4f 50 20 27 6c |('recpo'|,'TOP 'l|
|00002980| 75 27 20 31 27 65 6e 74 | 65 72 29 3b 6c 69 63 6f |u' 1'ent|er);lico|
|00002990| 20 3d 20 30 3b 64 6f 20 | 75 6e 74 69 6c 20 6c 69 | = 0;do |until li|
|000029a0| 63 6f 20 3d 20 31 3b 65 | 6c 65 20 3d 20 72 65 61 |co = 1;e|le = rea|
|000029b0| 64 6c 6e 28 27 72 65 63 | 70 6f 27 29 3b 49 46 20 |dln('rec|po');IF |
|000029c0| 4c 45 46 54 28 65 6c 65 | 2c 31 31 29 20 3d 20 27 |LEFT(ele|,11) = '|
|000029d0| 53 75 62 6a 65 63 74 3a | 20 6e 4e 27 3b 54 48 45 |Subject:| nN';THE|
|000029e0| 4e 20 44 4f 3b 6d 65 6e | 73 61 73 20 3d 20 6d 65 |N DO;men|sas = me|
|000029f0| 6e 73 61 73 20 2b 20 31 | 3b 6e 75 6d 65 6e 73 61 |nsas + 1|;numensa|
|00002a00| 2e 6d 65 6e 73 61 73 20 | 3d 20 6c 75 3b 73 75 62 |.mensas |= lu;sub|
|00002a10| 6a 65 73 61 2e 6d 65 6e | 73 61 73 20 3d 20 65 6c |jesa.men|sas = el|
|00002a20| 65 3b 65 6e 64 3b 49 46 | 20 77 6f 72 64 28 65 6c |e;end;IF| word(el|
|00002a30| 65 2c 31 29 20 3d 20 27 | 2e 27 20 54 48 45 4e 20 |e,1) = '|.' THEN |
|00002a40| 6c 69 63 6f 20 3d 20 31 | 3b 65 6e 64 3b 65 6e 64 |lico = 1|;end;end|
|00002a50| 3b 65 6e 64 3b 49 46 20 | 6d 65 6e 73 61 73 20 7e |;end;IF |mensas ~|
|00002a60| 3d 20 30 3b 54 48 45 4e | 20 44 4f 3b 44 6f 20 72 |= 0;THEN| DO;Do r|
|00002a70| 65 63 6f 6e 75 20 3d 20 | 31 20 74 6f 20 6d 65 6e |econu = |1 to men|
|00002a80| 73 61 73 3b 6d 65 6e 75 | 6d 65 20 3d 20 6e 75 6d |sas;menu|me = num|
|00002a90| 65 6e 73 61 2e 72 65 63 | 6f 6e 75 3b 43 41 4c 4c |ensa.rec|onu;CALL|
|00002aa0| 20 4e 4e 4f 4d 42 52 55 | 54 3b 66 69 63 68 65 6c | NNOMBRU|T;fichel|
|00002ab0| 6c 65 20 3d 20 61 64 64 | 70 61 72 74 28 6f 75 74 |le = add|part(out|
|00002ac0| 62 6f 75 6e 64 2c 27 4e | 65 77 4e 65 74 27 29 27 |bound,'N|ewNet')'|
|00002ad0| 2f 27 6e 6e 6f 6d 62 3b | 43 41 4c 4c 20 6f 70 65 |/'nnomb;|CALL ope|
|00002ae0| 6e 28 27 6c 61 76 66 69 | 27 2c 66 69 63 68 65 6c |n('lavfi|',fichel|
|00002af0| 6c 65 2c 27 57 27 29 3b | 76 69 65 6e 65 64 65 20 |le,'W');|vienede |
|00002b00| 3d 20 27 27 3b 43 41 4c | 4c 20 57 72 69 74 65 63 |= '';CAL|L Writec|
|00002b10| 68 28 27 72 65 63 70 6f | 27 2c 27 52 45 54 52 20 |h('recpo|','RETR |
|00002b20| 27 6d 65 6e 75 6d 65 7c | 7c 65 6e 74 65 72 29 3b |'menume|||enter);|
|00002b30| 72 65 73 70 74 20 3d 20 | 72 65 61 64 6c 6e 28 27 |respt = |readln('|
|00002b40| 72 65 63 70 6f 27 29 3b | 49 46 20 4c 45 46 54 28 |recpo');|IF LEFT(|
|00002b50| 57 4f 52 44 28 72 65 73 | 70 74 2c 33 29 2c 36 29 |WORD(res|pt,3),6)|
|00002b60| 20 7e 3d 20 27 6f 63 74 | 65 74 73 27 20 54 48 45 | ~= 'oct|ets' THE|
|00002b70| 4e 20 72 65 73 70 74 20 | 3d 20 72 65 61 64 6c 6e |N respt |= readln|
|00002b80| 28 27 72 65 63 70 6f 27 | 29 3b 43 41 4c 4c 20 54 |('recpo'|);CALL T|
|00002b90| 65 78 74 6f 28 27 20 27 | 46 72 61 73 65 2e 36 39 |exto(' '|Frase.69|
|00002ba0| 27 20 27 46 72 61 73 65 | 2e 38 30 27 3a 20 27 77 |' 'Frase|.80': 'w|
|00002bb0| 6f 72 64 28 72 65 73 70 | 74 2c 32 29 27 20 27 46 |ord(resp|t,2)' 'F|
|00002bc0| 72 61 73 65 2e 37 30 27 | 20 5b 27 72 65 63 6f 6e |rase.70'| ['recon|
|00002bd0| 75 27 2f 27 6d 65 6e 73 | 61 73 27 5d 27 2c 27 21 |u'/'mens|as']','!|
|00002be0| 27 29 3b 65 73 74 6f 6f | 20 3d 20 30 3b 65 73 74 |');estoo| = 0;est|
|00002bf0| 6c 6f 20 3d 20 72 65 61 | 64 6c 6e 28 27 72 65 63 |lo = rea|dln('rec|
|00002c00| 70 6f 27 29 3b 50 41 52 | 53 45 20 76 61 72 20 65 |po');PAR|SE var e|
|00002c10| 73 74 6c 6f 20 27 52 65 | 74 75 72 6e 2d 50 61 74 |stlo 'Re|turn-Pat|
|00002c20| 68 3a 20 3c 27 76 69 65 | 6e 65 64 65 27 3e 27 3b |h: <'vie|nede'>';|
|00002c30| 49 46 20 7e 4d 61 74 63 | 68 50 61 74 74 65 72 6e |IF ~Matc|hPattern|
|00002c40| 28 27 23 3f 40 23 3f 27 | 2c 76 69 65 6e 65 64 65 |('#?@#?'|,vienede|
|00002c50| 29 3b 54 48 45 4e 20 44 | 4f 3b 65 73 74 6c 6f 20 |);THEN D|O;estlo |
|00002c60| 3d 20 72 65 61 64 6c 6e | 28 27 72 65 63 70 6f 27 |= readln|('recpo'|
|00002c70| 29 3b 50 41 52 53 45 20 | 76 61 72 20 65 73 74 6c |);PARSE |var estl|
|00002c80| 6f 20 27 52 65 74 75 72 | 6e 2d 50 61 74 68 3a 20 |o 'Retur|n-Path: |
|00002c90| 3c 27 76 69 65 6e 65 64 | 65 27 3e 27 3b 65 6e 64 |<'viened|e'>';end|
|00002ca0| 3b 43 41 4c 4c 20 57 72 | 69 74 65 6c 6e 28 27 6c |;CALL Wr|iteln('l|
|00002cb0| 61 76 66 69 27 2c 4c 45 | 46 54 28 65 73 74 6c 6f |avfi',LE|FT(estlo|
|00002cc0| 2c 6c 65 6e 67 74 68 28 | 65 73 74 6c 6f 29 2d 31 |,length(|estlo)-1|
|00002cd0| 29 29 3b 64 6f 20 75 6e | 74 69 6c 20 65 73 74 6f |));do un|til esto|
|00002ce0| 6f 20 3d 20 31 3b 65 73 | 74 6c 6f 20 3d 20 72 65 |o = 1;es|tlo = re|
|00002cf0| 61 64 6c 6e 28 27 72 65 | 63 70 6f 27 29 3b 6c 69 |adln('re|cpo');li|
|00002d00| 65 73 74 6c 6f 20 3d 20 | 6c 65 66 74 28 65 73 74 |estlo = |left(est|
|00002d10| 6c 6f 2c 6c 65 6e 67 74 | 68 28 65 73 74 6c 6f 29 |lo,lengt|h(estlo)|
|00002d20| 2d 31 29 3b 49 46 20 6c | 69 65 73 74 6c 6f 20 7e |-1);IF l|iestlo ~|
|00002d30| 3d 20 27 2e 27 20 54 48 | 45 4e 20 43 41 4c 4c 20 |= '.' TH|EN CALL |
|00002d40| 57 72 69 74 65 6c 6e 28 | 27 6c 61 76 66 69 27 2c |Writeln(|'lavfi',|
|00002d50| 6c 69 65 73 74 6c 6f 29 | 3b 49 46 20 6c 69 65 73 |liestlo)|;IF lies|
|00002d60| 74 6c 6f 20 3d 20 27 2e | 27 20 54 48 45 4e 20 65 |tlo = '.|' THEN e|
|00002d70| 73 74 6f 6f 20 3d 20 31 | 3b 65 6e 64 3b 43 41 4c |stoo = 1|;end;CAL|
|00002d80| 4c 20 43 6c 6f 73 65 28 | 27 6c 61 76 66 69 27 29 |L Close(|'lavfi')|
|00002d90| 3b 49 66 20 6c 65 66 74 | 28 73 75 62 6a 65 73 61 |;If left|(subjesa|
|00002da0| 2e 72 65 63 6f 6e 75 2c | 31 35 29 20 3d 20 27 53 |.reconu,|15) = 'S|
|00002db0| 75 62 6a 65 63 74 3a 20 | 6e 4e 20 52 73 52 27 3b |ubject: |nN RsR';|
|00002dc0| 74 68 65 6e 20 64 6f 3b | 43 41 4c 4c 20 27 64 6f |then do;|CALL 'do|
|00002dd0| 73 2f 46 69 6c 65 4e 6f | 74 65 27 28 66 69 63 68 |s/FileNo|te'(fich|
|00002de0| 65 6c 6c 65 2c 27 52 20 | 27 76 69 65 6e 65 64 65 |elle,'R |'vienede|
|00002df0| 27 20 27 53 55 42 57 4f | 52 44 28 73 75 62 6a 65 |' 'SUBWO|RD(subje|
|00002e00| 2c 34 29 29 3b 49 46 20 | 4c 4f 47 4c 45 56 45 4c |,4));IF |LOGLEVEL|
|00002e10| 20 3e 20 31 20 54 48 45 | 4e 20 43 41 4c 4c 20 54 | > 1 THE|N CALL T|
|00002e20| 65 78 74 6f 28 27 20 27 | 46 72 61 73 65 2e 31 30 |exto(' '|Frase.10|
|00002e30| 36 27 20 27 66 72 61 73 | 65 2e 36 36 27 20 27 76 |6' 'fras|e.66' 'v|
|00002e40| 69 65 6e 65 64 65 2c 27 | 21 27 29 3b 65 6e 64 3b |ienede,'|!');end;|
|00002e50| 65 6c 73 65 20 64 6f 3b | 43 41 4c 4c 20 27 64 6f |else do;|CALL 'do|
|00002e60| 73 2f 46 69 6c 65 4e 6f | 74 65 27 28 66 69 63 68 |s/FileNo|te'(fich|
|00002e70| 65 6c 6c 65 2c 27 44 20 | 27 76 69 65 6e 65 64 65 |elle,'D |'vienede|
|00002e80| 27 20 27 53 55 42 57 4f | 52 44 28 73 75 62 6a 65 |' 'SUBWO|RD(subje|
|00002e90| 73 61 2e 72 65 63 6f 6e | 75 2c 33 29 29 3b 49 46 |sa.recon|u,3));IF|
|00002ea0| 20 4c 4f 47 4c 45 56 45 | 4c 20 3e 20 33 20 54 48 | LOGLEVE|L > 3 TH|
|00002eb0| 45 4e 20 43 41 4c 4c 20 | 54 65 78 74 6f 28 27 20 |EN CALL |Texto(' |
|00002ec0| 27 46 72 61 73 65 2e 36 | 38 2c 27 21 27 29 3b 65 |'Frase.6|8,'!');e|
|00002ed0| 6e 64 3b 43 41 4c 4c 20 | 57 72 69 74 65 63 68 28 |nd;CALL |Writech(|
|00002ee0| 27 72 65 63 70 6f 27 2c | 27 44 45 4c 45 20 27 6d |'recpo',|'DELE 'm|
|00002ef0| 65 6e 75 6d 65 7c 7c 65 | 6e 74 65 72 29 3b 72 65 |enume||e|nter);re|
|00002f00| 73 70 75 65 20 3d 20 72 | 65 61 64 6c 6e 28 27 72 |spue = r|eadln('r|
|00002f10| 65 63 70 6f 27 29 3b 65 | 6e 64 3b 65 6e 64 3b 45 |ecpo');e|nd;end;E|
|00002f20| 4c 53 45 20 43 41 4c 4c | 20 54 65 78 74 6f 28 46 |LSE CALL| Texto(F|
|00002f30| 72 61 73 65 2e 36 30 2c | 27 2d 27 29 3b 52 45 54 |rase.60,|'-');RET|
|00002f40| 55 52 4e 3b 45 58 49 54 | 3b 45 6e 76 69 6f 3a 3b |URN;EXIT|;Envio:;|
|00002f50| 49 46 20 6e 6f 63 6f 6c | 20 3d 20 30 3b 54 48 45 |IF nocol| = 0;THE|
|00002f60| 4e 20 44 4f 3b 43 41 4c | 4c 20 45 78 41 6c 6c 28 |N DO;CAL|L ExAll(|
|00002f70| 61 64 64 70 61 72 74 28 | 6f 75 74 62 6f 75 6e 64 |addpart(|outbound|
|00002f80| 2c 27 6e 65 77 4e 45 54 | 27 29 27 2f 6e 65 77 4e |,'newNET|')'/newN|
|00002f90| 45 54 2d 23 3f 27 2c 27 | 65 4e 2e 20 54 59 50 45 |ET-#?','|eN. TYPE|
|00002fa0| 20 31 33 35 36 27 29 3b | 44 52 4f 50 20 6e 6f 6d | 1356');|DROP nom|
|00002fb0| 62 72 65 73 75 2e 3b 44 | 52 4f 50 20 6e 6f 74 65 |bresu.;D|ROP note|
|00002fc0| 6d 73 75 2e 3b 65 6e 76 | 69 6e 75 73 20 3d 20 30 |msu.;env|inus = 0|
|00002fd0| 3b 44 6f 20 73 73 67 20 | 3d 20 30 20 74 6f 20 65 |;Do ssg |= 0 to e|
|00002fe0| 4e 2e 63 6f 75 6e 74 2d | 31 3b 49 46 20 4c 45 46 |N.count-|1;IF LEF|
|00002ff0| 54 28 65 4e 2e 73 73 67 | 2e 4e 6f 74 65 2c 31 29 |T(eN.ssg|.Note,1)|
|00003000| 20 3d 20 27 45 27 3b 54 | 48 45 4e 20 44 4f 3b 65 | = 'E';T|HEN DO;e|
|00003010| 6e 76 69 6e 75 73 20 3d | 20 65 6e 76 69 6e 75 73 |nvinus =| envinus|
|00003020| 20 2b 20 31 3b 6e 6f 6d | 62 72 65 73 75 2e 65 6e | + 1;nom|bresu.en|
|00003030| 76 69 6e 75 73 20 3d 20 | 65 4e 2e 73 73 67 2e 4e |vinus = |eN.ssg.N|
|00003040| 61 6d 65 3b 6e 6f 74 65 | 6d 73 75 2e 65 6e 76 69 |ame;note|msu.envi|
|00003050| 6e 75 73 20 3d 20 65 4e | 2e 73 73 67 2e 4e 6f 74 |nus = eN|.ssg.Not|
|00003060| 65 3b 65 6e 64 3b 65 6e | 64 3b 49 46 20 65 6e 76 |e;end;en|d;IF env|
|00003070| 69 6e 75 73 20 7e 3d 20 | 30 3b 54 48 45 4e 20 44 |inus ~= |0;THEN D|
|00003080| 4f 3b 65 6e 76 69 61 62 | 72 20 3d 20 30 3b 49 46 |O;enviab|r = 0;IF|
|00003090| 20 7e 6f 70 65 6e 28 27 | 70 61 72 6d 61 6e 27 2c | ~open('|parman',|
|000030a0| 27 54 43 50 3a 27 53 4d | 54 50 53 45 52 56 45 52 |'TCP:'SM|TPSERVER|
|000030b0| 27 2f 32 35 27 2c 27 41 | 27 29 3b 54 48 45 4e 20 |'/25','A|');THEN |
|000030c0| 44 4f 3b 43 41 4c 4c 20 | 54 65 78 74 6f 28 46 72 |DO;CALL |Texto(Fr|
|000030d0| 61 73 65 2e 35 39 2c 27 | 2b 27 29 3b 65 6e 76 69 |ase.59,'|+');envi|
|000030e0| 61 62 72 20 3d 20 31 3b | 65 6e 64 3b 45 4c 53 45 |abr = 1;|end;ELSE|
|000030f0| 20 44 4f 3b 72 75 6e 20 | 3d 20 72 65 61 64 6c 6e | DO;run |= readln|
|00003100| 28 27 70 61 72 6d 61 6e | 27 29 3b 64 6f 20 72 6c |('parman|');do rl|
|00003110| 75 70 20 3d 20 31 20 74 | 6f 20 65 6e 76 69 6e 75 |up = 1 t|o envinu|
|00003120| 73 3b 73 75 6e 6f 72 6c | 75 20 3d 20 57 4f 52 44 |s;sunorl|u = WORD|
|00003130| 28 6e 6f 74 65 6d 73 75 | 2e 72 6c 75 70 2c 33 29 |(notemsu|.rlup,3)|
|00003140| 3b 43 41 4c 4c 20 54 65 | 78 74 6f 28 46 72 61 73 |;CALL Te|xto(Fras|
|00003150| 65 2e 36 31 27 20 27 73 | 75 6e 6f 72 6c 75 2c 27 |e.61' 's|unorlu,'|
|00003160| 2e 27 29 3b 61 76 69 73 | 6f 65 20 3d 20 30 3b 43 |.');avis|oe = 0;C|
|00003170| 41 4c 4c 20 57 72 69 74 | 65 63 68 28 27 70 61 72 |ALL Writ|ech('par|
|00003180| 6d 61 6e 27 2c 27 4d 41 | 49 4c 20 46 52 4f 4d 3a |man','MA|IL FROM:|
|00003190| 20 27 45 4d 41 49 4c 7c | 7c 65 6e 74 65 72 29 3b | 'EMAIL|||enter);|
|000031a0| 72 64 6f 20 3d 20 72 65 | 61 64 6c 6e 28 27 70 61 |rdo = re|adln('pa|
|000031b0| 72 6d 61 6e 27 29 3b 49 | 46 20 57 4f 52 44 28 72 |rman');I|F WORD(r|
|000031c0| 64 6f 2c 31 29 20 3d 20 | 27 32 35 30 27 3b 54 48 |do,1) = |'250';TH|
|000031d0| 45 4e 20 44 4f 3b 43 41 | 4c 4c 20 57 72 69 74 65 |EN DO;CA|LL Write|
|000031e0| 63 68 28 27 70 61 72 6d | 61 6e 27 2c 27 52 43 50 |ch('parm|an','RCP|
|000031f0| 54 20 54 4f 3a 20 27 77 | 6f 72 64 28 6e 6f 74 65 |T TO: 'w|ord(note|
|00003200| 6d 73 75 2e 72 6c 75 70 | 2c 32 29 7c 7c 65 6e 74 |msu.rlup|,2)||ent|
|00003210| 65 72 29 3b 72 74 72 65 | 20 3d 20 72 65 61 64 6c |er);rtre| = readl|
|00003220| 6e 28 27 70 61 72 6d 61 | 6e 27 29 3b 49 46 20 57 |n('parma|n');IF W|
|00003230| 4f 52 44 28 72 74 72 65 | 2c 31 29 20 3d 20 27 32 |ORD(rtre|,1) = '2|
|00003240| 35 30 27 3b 54 48 45 4e | 20 44 4f 3b 43 41 4c 4c |50';THEN| DO;CALL|
|00003250| 20 57 72 69 74 65 63 68 | 28 27 70 61 72 6d 61 6e | Writech|('parman|
|00003260| 27 2c 27 44 41 54 41 27 | 65 6e 74 65 72 29 3b 6c |','DATA'|enter);l|
|00003270| 75 6e 6f 20 3d 20 72 65 | 61 64 6c 6e 28 27 70 61 |uno = re|adln('pa|
|00003280| 72 6d 61 6e 27 29 3b 49 | 46 20 57 4f 52 44 28 6c |rman');I|F WORD(l|
|00003290| 75 6e 6f 2c 31 29 20 3d | 20 27 33 35 34 27 3b 54 |uno,1) =| '354';T|
|000032a0| 48 45 4e 20 44 4f 3b 66 | 69 63 68 65 6c 65 65 20 |HEN DO;f|ichelee |
|000032b0| 3d 20 61 64 64 70 61 72 | 74 28 6f 75 74 62 6f 75 |= addpar|t(outbou|
|000032c0| 6e 64 2c 27 6e 65 77 4e | 45 54 27 29 27 2f 27 6e |nd,'newN|ET')'/'n|
|000032d0| 6f 6d 62 72 65 73 75 2e | 72 6c 75 70 3b 43 41 4c |ombresu.|rlup;CAL|
|000032e0| 4c 20 6f 70 65 6e 28 27 | 66 69 63 68 65 6c 65 27 |L open('|fichele'|
|000032f0| 2c 66 69 63 68 65 6c 65 | 65 2c 27 52 27 29 3b 64 |,fichele|e,'R');d|
|00003300| 6f 20 75 6e 74 69 6c 20 | 65 6f 66 28 27 66 69 63 |o until |eof('fic|
|00003310| 68 65 6c 65 27 29 3b 6d | 61 6e 6c 69 6e 20 3d 20 |hele');m|anlin = |
|00003320| 72 65 61 64 6c 6e 28 27 | 66 69 63 68 65 6c 65 27 |readln('|fichele'|
|00003330| 29 3b 43 41 4c 4c 20 57 | 72 69 74 65 6c 6e 28 27 |);CALL W|riteln('|
|00003340| 70 61 72 6d 61 6e 27 2c | 6d 61 6e 6c 69 6e 29 3b |parman',|manlin);|
|00003350| 65 6e 64 3b 43 41 4c 4c | 20 63 6c 6f 73 65 28 27 |end;CALL| close('|
|00003360| 66 69 63 68 65 6c 65 27 | 29 3b 43 41 4c 4c 20 57 |fichele'|);CALL W|
|00003370| 72 69 74 65 63 68 28 27 | 70 61 72 6d 61 6e 27 2c |ritech('|parman',|
|00003380| 65 6e 74 65 72 27 2e 27 | 65 6e 74 65 72 29 3b 72 |enter'.'|enter);r|
|00003390| 65 73 70 75 65 73 20 3d | 20 72 65 61 64 6c 6e 28 |espues =| readln(|
|000033a0| 27 70 61 72 6d 61 6e 27 | 29 3b 49 46 20 57 4f 52 |'parman'|);IF WOR|
|000033b0| 44 28 72 65 73 70 75 65 | 73 2c 31 29 20 3d 20 27 |D(respue|s,1) = '|
|000033c0| 32 35 30 27 3b 54 48 45 | 4e 20 44 4f 3b 43 41 4c |250';THE|N DO;CAL|
|000033d0| 4c 20 54 65 78 74 6f 28 | 46 72 61 73 65 2e 31 27 |L Texto(|Frase.1'|
|000033e0| 20 27 73 75 6e 6f 72 6c | 75 27 20 27 46 72 61 73 | 'sunorl|u' 'Fras|
|000033f0| 65 2e 34 2c 27 2b 27 29 | 3b 43 41 4c 4c 20 27 64 |e.4,'+')|;CALL 'd|
|00003400| 6f 73 2f 46 69 6c 65 4e | 6f 74 65 27 28 66 69 63 |os/FileN|ote'(fic|
|00003410| 68 65 6c 65 65 2c 27 42 | 20 27 53 55 42 57 4f 52 |helee,'B| 'SUBWOR|
|00003420| 44 28 6e 6f 74 65 6d 73 | 75 2e 72 6c 75 70 2c 32 |D(notems|u.rlup,2|
|00003430| 29 29 3b 65 6e 64 3b 45 | 4c 53 45 20 61 76 69 73 |));end;E|LSE avis|
|00003440| 6f 65 20 3d 20 31 3b 65 | 6e 64 3b 45 4c 53 45 20 |oe = 1;e|nd;ELSE |
|00003450| 61 76 69 73 6f 65 20 3d | 20 31 3b 65 6e 64 3b 45 |avisoe =| 1;end;E|
|00003460| 4c 53 45 20 61 76 69 73 | 6f 65 20 3d 20 31 3b 65 |LSE avis|oe = 1;e|
|00003470| 6e 64 3b 45 4c 53 45 20 | 61 76 69 73 6f 65 20 3d |nd;ELSE |avisoe =|
|00003480| 20 31 3b 49 46 20 61 76 | 69 73 6f 65 20 3d 20 31 | 1;IF av|isoe = 1|
|00003490| 20 54 48 45 4e 20 43 41 | 4c 4c 20 54 65 78 74 6f | THEN CA|LL Texto|
|000034a0| 28 46 72 61 73 65 2e 36 | 32 27 20 27 46 72 61 73 |(Frase.6|2' 'Fras|
|000034b0| 65 2e 36 31 27 20 27 73 | 75 6e 6f 72 6c 75 2c 27 |e.61' 's|unorlu,'|
|000034c0| 21 27 29 3b 65 6e 64 3b | 65 6e 64 3b 65 6e 64 3b |!');end;|end;end;|
|000034d0| 45 4c 53 45 20 43 41 4c | 4c 20 54 65 78 74 6f 28 |ELSE CAL|L Texto(|
|000034e0| 46 72 61 73 65 2e 36 33 | 2c 27 2d 27 29 3b 65 6e |Frase.63|,'-');en|
|000034f0| 64 3b 52 45 54 55 52 4e | 3b 45 58 49 54 3b 63 6f |d;RETURN|;EXIT;co|
|00003500| 6c 67 61 64 6f 3a 3b 73 | 65 63 75 65 6c 20 3d 20 |lgado:;s|ecuel = |
|00003510| 30 3b 49 46 20 61 75 74 | 6f 6c 6c 61 6d 61 72 20 |0;IF aut|ollamar |
|00003520| 3d 20 31 20 26 20 6e 6f | 6c 6c 61 6d 61 72 20 3d |= 1 & no|llamar =|
|00003530| 20 30 20 54 48 45 4e 20 | 43 41 4c 4c 20 62 63 75 | 0 THEN |CALL bcu|
|00003540| 65 6c 3b 49 46 20 6c 6c | 61 6d 61 72 20 3d 20 31 |el;IF ll|amar = 1|
|00003550| 20 26 20 73 65 63 75 65 | 6c 20 3d 20 30 20 54 48 | & secue|l = 0 TH|
|00003560| 45 4e 20 43 41 4c 4c 20 | 62 63 75 65 6c 3b 49 46 |EN CALL |bcuel;IF|
|00003570| 20 73 65 63 75 65 6c 20 | 3d 20 30 20 54 48 45 4e | secuel |= 0 THEN|
|00003580| 20 43 41 4c 4c 20 54 65 | 78 74 6f 28 46 72 61 73 | CALL Te|xto(Fras|
|00003590| 65 2e 36 34 2c 27 2a 27 | 29 3b 52 45 54 55 52 4e |e.64,'*'|);RETURN|
|000035a0| 3b 45 58 49 54 3b 62 63 | 75 65 6c 3a 3b 73 65 63 |;EXIT;bc|uel:;sec|
|000035b0| 75 65 6c 20 3d 20 31 3b | 43 41 4c 4c 20 54 65 78 |uel = 1;|CALL Tex|
|000035c0| 74 6f 28 46 72 61 73 65 | 2e 35 38 2c 27 21 27 29 |to(Frase|.58,'!')|
|000035d0| 3b 49 46 20 76 6d 69 61 | 6d 69 20 3d 20 30 20 54 |;IF vmia|mi = 0 T|
|000035e0| 48 45 4e 20 43 41 4c 4c | 20 45 78 65 63 75 74 65 |HEN CALL| Execute|
|000035f0| 28 4f 46 46 4c 49 4e 45 | 29 3b 49 46 20 76 6d 69 |(OFFLINE|);IF vmi|
|00003600| 61 6d 69 20 3d 20 31 20 | 54 48 45 4e 20 41 44 44 |ami = 1 |THEN ADD|
|00003610| 52 45 53 53 20 4d 49 41 | 4d 49 2e 31 28 27 4f 46 |RESS MIA|MI.1('OF|
|00003620| 46 4c 49 4e 45 27 29 3b | 52 45 54 55 52 4e 3b 45 |FLINE');|RETURN;E|
|00003630| 58 49 54 3b 52 65 71 75 | 65 73 74 65 72 73 3a 3b |XIT;Requ|esters:;|
|00003640| 43 61 6c 6c 20 45 78 41 | 6c 6c 28 61 64 64 70 61 |Call ExA|ll(addpa|
|00003650| 72 74 28 6f 75 74 62 6f | 75 6e 64 2c 27 6e 65 77 |rt(outbo|und,'new|
|00003660| 4e 45 54 27 29 27 2f 6e | 65 77 4e 45 54 2d 23 3f |NET')'/n|ewNET-#?|
|00003670| 27 2c 27 72 4e 2e 20 54 | 59 50 45 20 31 33 35 36 |','rN. T|YPE 1356|
|00003680| 27 29 3b 72 65 71 73 20 | 3d 20 30 3b 49 46 20 4c |');reqs |= 0;IF L|
|00003690| 4f 47 4c 45 56 45 4c 20 | 3e 20 32 20 74 68 65 6e |OGLEVEL |> 2 then|
|000036a0| 20 43 61 6c 6c 20 54 45 | 58 54 4f 28 46 72 61 73 | Call TE|XTO(Fras|
|000036b0| 65 2e 31 30 37 2c 27 2d | 27 29 3b 44 6f 20 72 61 |e.107,'-|');Do ra|
|000036c0| 72 65 71 20 3d 20 30 20 | 74 6f 20 72 4e 2e 63 6f |req = 0 |to rN.co|
|000036d0| 75 6e 74 2d 31 3b 69 66 | 20 57 4f 52 44 28 72 4e |unt-1;if| WORD(rN|
|000036e0| 2e 72 61 72 65 71 2e 4e | 6f 74 65 2c 31 29 20 3d |.rareq.N|ote,1) =|
|000036f0| 20 27 52 27 3b 74 68 65 | 6e 20 64 6f 3b 66 69 63 | 'R';the|n do;fic|
|00003700| 68 65 66 69 20 3d 20 57 | 4f 52 44 28 72 4e 2e 72 |hefi = W|ORD(rN.r|
|00003710| 61 72 65 71 2e 4e 6f 74 | 65 2c 36 29 3b 6f 72 69 |areq.Not|e,6);ori|
|00003720| 66 69 63 68 65 20 3d 20 | 77 6f 72 64 28 72 4e 2e |fiche = |word(rN.|
|00003730| 4e 6f 74 65 2c 33 29 3b | 74 61 6d 66 69 63 68 65 |Note,3);|tamfiche|
|00003740| 20 3d 20 77 6f 72 64 28 | 72 4e 2e 4e 6f 74 65 2c | = word(|rN.Note,|
|00003750| 34 29 3b 6c 61 72 65 64 | 65 20 3d 20 77 6f 72 64 |4);lared|e = word|
|00003760| 28 72 4e 2e 4e 6f 74 65 | 2c 35 29 3b 70 61 71 75 |(rN.Note|,5);paqu|
|00003770| 69 65 6e 76 61 20 3d 20 | 77 6f 72 64 28 72 4e 2e |ienva = |word(rN.|
|00003780| 4e 6f 74 65 2c 32 29 3b | 74 6f 64 65 6c 66 69 20 |Note,2);|todelfi |
|00003790| 3d 20 61 64 64 70 61 72 | 74 28 6f 75 74 62 6f 75 |= addpar|t(outbou|
|000037a0| 6e 64 2c 27 6e 65 77 4e | 45 54 27 29 27 2f 27 66 |nd,'newN|ET')'/'f|
|000037b0| 69 63 68 65 66 69 3b 69 | 66 20 7e 65 78 69 73 74 |ichefi;i|f ~exist|
|000037c0| 73 28 74 6f 64 65 6c 66 | 69 29 20 74 68 65 6e 20 |s(todelf|i) then |
|000037d0| 63 61 6c 6c 20 79 61 6c | 6f 73 69 65 6e 74 6f 3b |call yal|osiento;|
|000037e0| 65 6c 73 65 20 63 61 6c | 6c 20 72 65 6d 61 6e 64 |else cal|l remand|
|000037f0| 61 6e 64 6f 3b 65 6e 64 | 3b 65 6e 64 3b 52 45 54 |ando;end|;end;RET|
|00003800| 55 52 4e 3b 45 58 49 54 | 3b 72 65 6d 61 6e 64 61 |URN;EXIT|;remanda|
|00003810| 6e 64 6f 3a 3b 65 6d 70 | 69 20 3d 20 30 3b 6e 6e |ndo:;emp|i = 0;nn|
|00003820| 65 6f 20 3d 20 30 3b 64 | 6f 20 75 6e 74 69 6c 20 |eo = 0;d|o until |
|00003830| 6e 6e 65 6f 20 3d 20 31 | 3b 65 6d 70 69 20 3d 20 |nneo = 1|;empi = |
|00003840| 65 6d 70 69 20 2b 20 31 | 3b 69 66 20 6e 6f 64 6f |empi + 1|;if nodo|
|00003850| 73 20 3d 20 65 6d 70 69 | 3b 74 68 65 6e 20 64 6f |s = empi|;then do|
|00003860| 3b 6e 6e 65 6f 20 3d 20 | 31 3b 6d 65 74 6f 64 65 |;nneo = |1;metode|
|00003870| 6e 6f 64 6f 20 3d 20 27 | 4d 49 4d 45 27 3b 65 6e |nodo = '|MIME';en|
|00003880| 64 3b 69 66 20 6e 6f 64 | 6d 61 69 2e 65 6d 70 69 |d;if nod|mai.empi|
|00003890| 20 3d 20 70 61 71 75 69 | 65 6e 76 61 20 26 20 6e | = paqui|enva & n|
|000038a0| 6f 64 72 65 64 2e 65 6d | 70 69 20 3d 20 6c 61 72 |odred.em|pi = lar|
|000038b0| 65 64 65 3b 74 68 65 6e | 20 64 6f 3b 6d 65 6e 6f |ede;then| do;meno|
|000038c0| 64 65 6e 6f 64 6f 20 3d | 20 6e 6f 64 6d 65 74 2e |denodo =| nodmet.|
|000038d0| 65 6d 70 69 3b 6e 6e 65 | 6f 20 3d 20 31 3b 65 6e |empi;nne|o = 1;en|
|000038e0| 64 3b 65 6e 64 3b 43 41 | 4c 4c 20 27 64 6f 73 2f |d;end;CA|LL 'dos/|
|000038f0| 46 69 6c 65 4e 6f 74 65 | 27 28 74 6f 64 65 6c 66 |FileNote|'(todelf|
|00003900| 69 2c 27 43 20 27 6f 72 | 69 66 69 63 68 65 27 20 |i,'C 'or|ifiche' |
|00003910| 27 6c 61 72 65 64 65 27 | 20 27 70 61 71 75 69 65 |'larede'| 'paquie|
|00003920| 6e 76 61 27 20 27 6d 65 | 74 6f 64 65 6e 6f 64 6f |nva' 'me|todenodo|
|00003930| 29 3b 43 61 6c 6c 20 74 | 65 78 74 6f 28 46 72 61 |);Call t|exto(Fra|
|00003940| 73 65 2e 31 30 38 2c 27 | 2b 27 29 3b 52 45 54 55 |se.108,'|+');RETU|
|00003950| 52 4e 3b 45 58 49 54 3b | 79 61 6c 6f 73 69 65 6e |RN;EXIT;|yalosien|
|00003960| 74 6f 3a 3b 68 65 61 64 | 65 6e 6f 6d 20 3d 20 61 |to:;head|enom = a|
|00003970| 64 64 70 61 72 74 28 54 | 45 4d 50 2c 27 6e 65 77 |ddpart(T|EMP,'new|
|00003980| 6e 65 74 2d 69 6e 66 6f | 72 6d 27 29 3b 43 61 6c |net-info|rm');Cal|
|00003990| 6c 20 53 69 65 6d 70 72 | 65 48 45 41 44 45 4e 4f |l Siempr|eHEADENO|
|000039a0| 4d 41 3b 43 41 4c 4c 20 | 57 72 69 74 65 46 69 6c |MA;CALL |WriteFil|
|000039b0| 65 28 68 65 61 64 65 6e | 6f 6d 2c 27 54 6f 3a 20 |e(headen|om,'To: |
|000039c0| 27 70 61 71 75 69 65 6e | 76 61 7c 7c 65 6e 74 65 |'paquien|va||ente|
|000039d0| 72 2c 27 41 70 70 65 6e | 64 27 29 3b 43 61 6c 6c |r,'Appen|d');Call|
|000039e0| 20 53 69 65 6d 70 72 65 | 48 45 41 44 45 4e 4f 4d | Siempre|HEADENOM|
|000039f0| 42 3b 43 41 4c 4c 20 57 | 72 69 74 65 46 69 6c 65 |B;CALL W|riteFile|
|00003a00| 28 68 65 61 64 65 6e 6f | 6d 2c 27 43 6f 6e 74 65 |(headeno|m,'Conte|
|00003a10| 6e 74 2d 54 79 70 65 3a | 20 74 65 78 74 2f 70 6c |nt-Type:| text/pl|
|00003a20| 61 69 6e 3b 20 63 68 61 | 72 73 65 74 3d 69 73 6f |ain; cha|rset=iso|
|00003a30| 2d 38 38 35 39 2d 31 27 | 65 6e 74 65 72 2c 27 41 |-8859-1'|enter,'A|
|00003a40| 70 70 65 6e 64 27 29 3b | 43 41 4c 4c 20 57 72 69 |ppend');|CALL Wri|
|00003a50| 74 65 46 69 6c 65 28 68 | 65 61 64 65 6e 6f 6d 2c |teFile(h|eadenom,|
|00003a60| 27 43 6f 6e 74 65 6e 74 | 2d 54 72 61 6e 73 66 65 |'Content|-Transfe|
|00003a70| 72 2d 45 6e 63 6f 64 69 | 6e 67 3a 20 71 75 6f 74 |r-Encodi|ng: quot|
|00003a80| 65 64 2d 70 72 69 6e 74 | 61 62 6c 65 27 65 6e 74 |ed-print|able'ent|
|00003a90| 65 72 2c 27 41 70 70 65 | 6e 64 27 29 3b 43 41 4c |er,'Appe|nd');CAL|
|00003aa0| 4c 20 57 72 69 74 65 46 | 69 6c 65 28 68 65 61 64 |L WriteF|ile(head|
|00003ab0| 65 6e 6f 6d 2c 65 6e 74 | 65 72 2c 27 41 70 70 65 |enom,ent|er,'Appe|
|00003ac0| 6e 64 27 29 3b 43 41 4c | 4c 20 57 72 69 74 65 46 |nd');CAL|L WriteF|
|00003ad0| 69 6c 65 28 68 65 61 64 | 65 6e 6f 6d 2c 65 6e 74 |ile(head|enom,ent|
|00003ae0| 65 72 2c 27 41 70 70 65 | 6e 64 27 29 3b 43 41 4c |er,'Appe|nd');CAL|
|00003af0| 4c 20 57 72 69 74 65 46 | 69 6c 65 28 68 65 61 64 |L WriteF|ile(head|
|00003b00| 65 6e 6f 6d 2c 46 72 61 | 73 65 2e 31 30 39 7c 7c |enom,Fra|se.109|||
|00003b10| 65 6e 74 65 72 2c 27 41 | 70 70 65 6e 64 27 29 3b |enter,'A|ppend');|
|00003b20| 43 41 4c 4c 20 57 72 69 | 74 65 46 69 6c 65 28 68 |CALL Wri|teFile(h|
|00003b30| 65 61 64 65 6e 6f 6d 2c | 46 72 61 73 65 2e 31 31 |eadenom,|Frase.11|
|00003b40| 30 7c 7c 65 6e 74 65 72 | 2c 27 41 70 70 65 6e 64 |0||enter|,'Append|
|00003b50| 27 29 3b 43 41 4c 4c 20 | 57 72 69 74 65 46 69 6c |');CALL |WriteFil|
|00003b60| 65 28 68 65 61 64 65 6e | 6f 6d 2c 46 72 61 73 65 |e(headen|om,Frase|
|00003b70| 2e 31 31 31 7c 7c 65 6e | 74 65 72 2c 27 41 70 70 |.111||en|ter,'App|
|00003b80| 65 6e 64 27 29 3b 43 41 | 4c 4c 20 57 72 69 74 65 |end');CA|LL Write|
|00003b90| 46 69 6c 65 28 68 65 61 | 64 65 6e 6f 6d 2c 65 6e |File(hea|denom,en|
|00003ba0| 74 65 72 2c 27 41 70 70 | 65 6e 64 27 29 3b 43 41 |ter,'App|end');CA|
|00003bb0| 4c 4c 20 57 72 69 74 65 | 46 69 6c 65 28 68 65 61 |LL Write|File(hea|
|00003bc0| 64 65 6e 6f 6d 2c 65 6e | 74 65 72 2c 27 41 70 70 |denom,en|ter,'App|
|00003bd0| 65 6e 64 27 29 3b 43 41 | 4c 4c 20 57 72 69 74 65 |end');CA|LL Write|
|00003be0| 46 69 6c 65 28 68 65 61 | 64 65 6e 6f 6d 2c 46 72 |File(hea|denom,Fr|
|00003bf0| 61 73 65 2e 31 27 3a 20 | 27 6f 72 69 66 69 63 68 |ase.1': |'orifich|
|00003c00| 65 7c 7c 65 6e 74 65 72 | 2c 27 41 70 70 65 6e 64 |e||enter|,'Append|
|00003c10| 27 29 3b 43 41 4c 4c 20 | 57 72 69 74 65 46 69 6c |');CALL |WriteFil|
|00003c20| 65 28 68 65 61 64 65 6e | 6f 6d 2c 46 72 61 73 65 |e(headen|om,Frase|
|00003c30| 2e 35 33 27 3a 20 27 6c | 61 72 65 64 65 7c 7c 65 |.53': 'l|arede||e|
|00003c40| 6e 74 65 72 2c 27 41 70 | 70 65 6e 64 27 29 3b 43 |nter,'Ap|pend');C|
|00003c50| 41 4c 4c 20 57 72 69 74 | 65 46 69 6c 65 28 68 65 |ALL Writ|eFile(he|
|00003c60| 61 64 65 6e 6f 6d 2c 46 | 72 61 73 65 2e 35 32 27 |adenom,F|rase.52'|
|00003c70| 3a 20 27 74 61 6d 66 69 | 63 68 65 7c 7c 65 6e 74 |: 'tamfi|che||ent|
|00003c80| 65 72 2c 27 41 70 70 65 | 6e 64 27 29 3b 43 41 4c |er,'Appe|nd');CAL|
|00003c90| 4c 20 57 72 69 74 65 46 | 69 6c 65 28 68 65 61 64 |L WriteF|ile(head|
|00003ca0| 65 6e 6f 6d 2c 65 6e 74 | 65 72 2c 27 41 70 70 65 |enom,ent|er,'Appe|
|00003cb0| 6e 64 27 29 3b 43 41 4c | 4c 20 57 72 69 74 65 46 |nd');CAL|L WriteF|
|00003cc0| 69 6c 65 28 68 65 61 64 | 65 6e 6f 6d 2c 65 6e 74 |ile(head|enom,ent|
|00003cd0| 65 72 2c 27 41 70 70 65 | 6e 64 27 29 3b 43 41 4c |er,'Appe|nd');CAL|
|00003ce0| 4c 20 27 64 6f 73 2f 46 | 69 6c 65 4e 6f 74 65 27 |L 'dos/F|ileNote'|
|00003cf0| 28 68 65 64 65 6e 6f 6d | 2c 27 45 20 27 70 61 71 |(hedenom|,'E 'paq|
|00003d00| 75 69 65 6e 76 61 27 20 | 6d 65 6e 73 61 6a 65 20 |uienva' |mensaje |
|00003d10| 4e 4f 4e 45 27 29 3b 52 | 45 54 55 52 4e 3b 45 58 |NONE');R|ETURN;EX|
|00003d20| 49 54 3b 44 65 63 6f 64 | 69 66 69 3a 3b 43 41 4c |IT;Decod|ifi:;CAL|
|00003d30| 4c 20 45 78 41 6c 6c 28 | 61 64 64 70 61 72 74 28 |L ExAll(|addpart(|
|00003d40| 6f 75 74 62 6f 75 6e 64 | 2c 27 6e 65 77 4e 45 54 |outbound|,'newNET|
|00003d50| 27 29 27 2f 6e 65 77 4e | 45 54 2d 23 3f 27 2c 27 |')'/newN|ET-#?','|
|00003d60| 64 4e 2e 20 54 59 50 45 | 20 31 33 35 36 27 29 3b |dN. TYPE| 1356');|
|00003d70| 64 65 63 6f 64 73 20 3d | 20 30 3b 43 41 4c 4c 20 |decods =| 0;CALL |
|00003d80| 54 65 78 74 6f 28 46 72 | 61 73 65 2e 39 32 2c 27 |Texto(Fr|ase.92,'|
|00003d90| 2b 27 29 3b 44 6f 20 70 | 61 72 72 61 6d 20 3d 20 |+');Do p|arram = |
|00003da0| 30 20 74 6f 20 64 4e 2e | 63 6f 75 6e 74 2d 31 3b |0 to dN.|count-1;|
|00003db0| 49 46 20 57 4f 52 44 28 | 64 4e 2e 70 61 72 72 61 |IF WORD(|dN.parra|
|00003dc0| 6d 2e 4e 6f 74 65 2c 31 | 29 20 3d 20 27 44 27 3b |m.Note,1|) = 'D';|
|00003dd0| 54 48 45 4e 20 44 4f 3b | 64 65 71 75 69 65 20 3d |THEN DO;|dequie =|
|00003de0| 20 57 4f 52 44 28 64 4e | 2e 70 61 72 72 61 6d 2e | WORD(dN|.parram.|
|00003df0| 4e 6f 74 65 2c 32 29 3b | 70 6c 61 72 72 65 64 20 |Note,2);|plarred |
|00003e00| 3d 20 27 3c 27 64 65 71 | 75 69 65 27 3e 20 27 57 |= '<'deq|uie'> 'W|
|00003e10| 4f 52 44 28 64 6e 2e 70 | 61 72 72 61 6d 2e 4e 6f |ORD(dn.p|arram.No|
|00003e20| 74 65 2c 35 29 3b 63 75 | 61 66 69 63 68 20 3d 20 |te,5);cu|afich = |
|00003e30| 57 4f 52 44 28 64 6e 2e | 70 61 72 72 61 6d 2e 4e |WORD(dn.|parram.N|
|00003e40| 6f 74 65 2c 33 29 3b 63 | 75 61 6e 66 69 63 68 20 |ote,3);c|uanfich |
|00003e50| 3d 20 57 4f 52 44 28 64 | 6e 2e 70 61 72 72 61 6d |= WORD(d|n.parram|
|00003e60| 2e 4e 6f 74 65 2c 34 29 | 3b 69 64 65 6e 74 69 66 |.Note,4)|;identif|
|00003e70| 69 64 20 3d 20 57 4f 52 | 44 28 64 4e 2e 70 61 72 |id = WOR|D(dN.par|
|00003e80| 72 61 6d 2e 4e 6f 74 65 | 2c 36 29 3b 66 69 63 68 |ram.Note|,6);fich|
|00003e90| 65 66 75 20 3d 20 61 64 | 64 70 61 72 74 28 6f 75 |efu = ad|dpart(ou|
|00003ea0| 74 62 6f 75 6e 64 2c 27 | 6e 65 77 4e 45 54 27 29 |tbound,'|newNET')|
|00003eb0| 27 2f 27 64 4e 2e 70 61 | 72 72 61 6d 2e 4e 61 6d |'/'dN.pa|rram.Nam|
|00003ec0| 65 3b 6e 75 65 6e 6f 20 | 3d 20 63 75 61 66 69 63 |e;nueno |= cuafic|
|00003ed0| 68 3b 69 6e 6e 75 65 6e | 64 6f 20 3d 20 61 64 64 |h;innuen|do = add|
|00003ee0| 70 61 72 74 28 69 6e 62 | 6f 75 6e 64 2c 6e 75 65 |part(inb|ound,nue|
|00003ef0| 6e 6f 29 3b 49 46 20 45 | 58 49 53 54 53 28 69 6e |no);IF E|XISTS(in|
|00003f00| 6e 75 65 6e 64 6f 29 3b | 54 48 45 4e 20 44 4f 3b |nuendo);|THEN DO;|
|00003f10| 70 61 70 61 79 61 20 3d | 20 30 3b 64 6f 20 75 6e |papaya =| 0;do un|
|00003f20| 74 69 6c 20 70 61 70 61 | 79 61 20 3d 20 31 3b 6e |til papa|ya = 1;n|
|00003f30| 75 65 6e 6f 20 3d 20 6e | 75 65 76 6f 62 75 6e 64 |ueno = n|uevobund|
|00003f40| 28 52 49 47 48 54 28 6e | 75 65 6e 6f 2c 33 29 29 |(RIGHT(n|ueno,3))|
|00003f50| 3b 69 6e 6e 75 65 6e 64 | 6f 20 3d 20 61 64 64 70 |;innuend|o = addp|
|00003f60| 61 72 74 28 69 6e 62 6f | 75 6e 64 2c 6e 75 65 6e |art(inbo|und,nuen|
|00003f70| 6f 29 3b 49 46 20 7e 45 | 58 49 53 54 53 28 69 6e |o);IF ~E|XISTS(in|
|00003f80| 6e 75 65 6e 64 6f 29 20 | 54 48 45 4e 20 70 61 70 |nuendo) |THEN pap|
|00003f90| 61 79 61 20 3d 20 31 3b | 65 6e 64 3b 65 6e 64 3b |aya = 1;|end;end;|
|00003fa0| 72 65 69 6d 61 20 3d 20 | 30 3b 49 46 20 4c 45 46 |reima = |0;IF LEF|
|00003fb0| 54 28 57 4f 52 44 28 64 | 6e 2e 70 61 72 72 61 6d |T(WORD(d|n.parram|
|00003fc0| 2e 4e 6f 74 65 2c 37 29 | 2c 34 29 20 3d 20 27 4d |.Note,7)|,4) = 'M|
|00003fd0| 49 4d 45 27 3b 54 48 45 | 4e 20 44 4f 3b 43 41 4c |IME';THE|N DO;CAL|
|00003fe0| 4c 20 45 78 65 63 75 74 | 65 28 27 62 61 73 65 36 |L Execut|e('base6|
|00003ff0| 34 64 65 63 6f 64 65 20 | 27 66 69 63 68 65 66 75 |4decode |'fichefu|
|00004000| 27 20 27 69 6e 6e 75 65 | 6e 64 6f 2c 27 66 75 65 |' 'innue|ndo,'fue|
|00004010| 72 61 2e 27 29 3b 49 46 | 20 45 58 49 53 54 53 28 |ra.');IF| EXISTS(|
|00004020| 69 6e 6e 75 65 6e 64 6f | 29 3b 54 48 45 4e 20 44 |innuendo|);THEN D|
|00004030| 4f 3b 43 41 4c 4c 20 45 | 78 61 6d 69 6e 65 28 69 |O;CALL E|xamine(i|
|00004040| 6e 6e 75 65 6e 64 6f 2c | 27 61 66 75 2e 27 29 3b |nnuendo,|'afu.');|
|00004050| 49 46 20 61 66 75 2e 53 | 69 7a 65 20 3d 20 63 75 |IF afu.S|ize = cu|
|00004060| 61 6e 66 69 63 68 3b 54 | 48 45 4e 20 44 4f 3b 43 |anfich;T|HEN DO;C|
|00004070| 41 4c 4c 20 54 65 78 74 | 6f 28 46 72 61 73 65 2e |ALL Text|o(Frase.|
|00004080| 31 27 20 27 6e 75 65 6e | 6f 27 20 27 46 72 61 73 |1' 'nuen|o' 'Fras|
|00004090| 65 2e 36 36 27 20 27 70 | 6c 61 72 72 65 64 27 20 |e.66' 'p|larred' |
|000040a0| 27 46 72 61 73 65 2e 32 | 2c 27 2b 27 29 3b 64 65 |'Frase.2|,'+');de|
|000040b0| 63 6f 64 73 20 3d 20 64 | 65 63 6f 64 73 20 2b 31 |cods = d|ecods +1|
|000040c0| 3b 43 41 4c 4c 20 27 64 | 6f 73 2f 46 69 6c 65 4e |;CALL 'd|os/FileN|
|000040d0| 6f 74 65 27 28 66 69 63 | 68 65 66 75 2c 27 42 20 |ote'(fic|hefu,'B |
|000040e0| 27 53 55 42 57 4f 52 44 | 28 64 4e 2e 70 61 72 72 |'SUBWORD|(dN.parr|
|000040f0| 61 6d 2e 4e 6f 74 65 2c | 33 29 29 3b 65 6e 64 3b |am.Note,|3));end;|
|00004100| 45 4c 53 45 20 72 65 69 | 6d 61 20 3d 20 31 3b 65 |ELSE rei|ma = 1;e|
|00004110| 6e 64 3b 45 4c 53 45 20 | 72 65 69 6d 61 20 3d 20 |nd;ELSE |reima = |
|00004120| 31 3b 49 46 20 72 65 69 | 6d 61 20 3d 20 31 3b 54 |1;IF rei|ma = 1;T|
|00004130| 48 45 4e 20 44 4f 3b 43 | 41 4c 4c 20 45 78 65 63 |HEN DO;C|ALL Exec|
|00004140| 75 74 65 28 27 64 65 6c | 65 74 65 20 27 69 6e 6e |ute('del|ete 'inn|
|00004150| 75 65 6e 64 6f 29 3b 43 | 41 4c 4c 20 27 64 6f 73 |uendo);C|ALL 'dos|
|00004160| 2f 46 69 6c 65 4e 6f 74 | 65 27 28 66 69 63 68 65 |/FileNot|e'(fiche|
|00004170| 66 75 2c 27 4b 20 27 53 | 55 42 57 4f 52 44 28 64 |fu,'K 'S|UBWORD(d|
|00004180| 4e 2e 70 61 72 72 61 6d | 2e 4e 6f 74 65 2c 33 29 |N.parram|.Note,3)|
|00004190| 29 3b 43 41 4c 4c 20 54 | 65 78 74 6f 28 46 72 61 |);CALL T|exto(Fra|
|000041a0| 73 65 2e 31 27 20 27 66 | 69 63 68 65 66 75 27 20 |se.1' 'f|ichefu' |
|000041b0| 27 46 72 61 73 65 2e 36 | 37 2c 27 2a 27 29 3b 43 |'Frase.6|7,'*');C|
|000041c0| 41 4c 4c 20 72 65 65 6e | 76 69 61 6d 65 28 64 65 |ALL reen|viame(de|
|000041d0| 71 75 69 65 27 20 27 63 | 75 61 66 69 63 68 27 20 |quie' 'c|uafich' |
|000041e0| 27 63 75 61 6e 66 69 63 | 68 27 20 27 70 6c 61 72 |'cuanfic|h' 'plar|
|000041f0| 72 65 64 27 20 27 69 64 | 65 6e 74 69 66 69 64 29 |red' 'id|entifid)|
|00004200| 3b 65 6e 64 3b 65 6e 64 | 3b 49 46 20 4c 45 46 54 |;end;end|;IF LEFT|
|00004210| 28 57 4f 52 44 28 64 4e | 2e 70 61 72 72 61 6d 2e |(WORD(dN|.parram.|
|00004220| 4e 6f 74 65 2c 37 29 2c | 36 29 20 3d 20 27 46 53 |Note,7),|6) = 'FS|
|00004230| 43 4f 44 45 27 3b 54 48 | 45 4e 20 44 4f 3b 43 41 |CODE';TH|EN DO;CA|
|00004240| 4c 4c 20 45 78 65 63 75 | 74 65 28 27 66 73 63 6f |LL Execu|te('fsco|
|00004250| 64 65 20 27 66 69 63 68 | 65 66 75 27 20 27 69 6e |de 'fich|efu' 'in|
|00004260| 6e 75 65 6e 64 6f 2c 27 | 66 75 65 72 61 2e 27 29 |nuendo,'|fuera.')|
|00004270| 3b 49 46 20 45 58 49 53 | 54 53 28 69 6e 6e 75 65 |;IF EXIS|TS(innue|
|00004280| 6e 64 6f 29 3b 54 48 45 | 4e 20 44 4f 0a 43 41 4c |ndo);THE|N DO.CAL|
|00004290| 4c 20 45 78 61 6d 69 6e | 65 28 69 6e 6e 75 65 6e |L Examin|e(innuen|
|000042a0| 64 6f 2c 27 61 66 75 2e | 27 29 3b 49 46 20 61 66 |do,'afu.|');IF af|
|000042b0| 75 2e 53 69 7a 65 20 3d | 20 63 75 61 6e 66 69 63 |u.Size =| cuanfic|
|000042c0| 68 3b 54 48 45 4e 20 44 | 4f 3b 43 41 4c 4c 20 54 |h;THEN D|O;CALL T|
|000042d0| 65 78 74 6f 28 46 72 61 | 73 65 2e 31 27 20 27 6e |exto(Fra|se.1' 'n|
|000042e0| 75 65 6e 6f 27 20 27 46 | 72 61 73 65 2e 36 36 27 |ueno' 'F|rase.66'|
|000042f0| 20 27 70 6c 61 72 72 65 | 64 27 20 27 46 72 61 73 | 'plarre|d' 'Fras|
|00004300| 65 2e 32 2c 27 2b 27 29 | 3b 64 65 63 6f 64 73 20 |e.2,'+')|;decods |
|00004310| 3d 20 64 65 63 6f 64 73 | 20 2b 31 3b 43 41 4c 4c |= decods| +1;CALL|
|00004320| 20 27 64 6f 73 2f 46 69 | 6c 65 4e 6f 74 65 27 28 | 'dos/Fi|leNote'(|
|00004330| 66 69 63 68 65 66 75 2c | 27 42 20 27 53 55 42 57 |fichefu,|'B 'SUBW|
|00004340| 4f 52 44 28 64 4e 2e 70 | 61 72 72 61 6d 2e 4e 6f |ORD(dN.p|arram.No|
|00004350| 74 65 2c 33 29 29 3b 65 | 6e 64 3b 45 4c 53 45 20 |te,3));e|nd;ELSE |
|00004360| 44 4f 3b 41 44 44 52 45 | 53 53 20 43 4f 4d 4d 41 |DO;ADDRE|SS COMMA|
|00004370| 4e 44 28 27 64 65 6c 65 | 74 65 20 3e 6e 69 6c 3a |ND('dele|te >nil:|
|00004380| 20 27 69 6e 6e 75 65 6e | 64 6f 29 3b 43 41 4c 4c | 'innuen|do);CALL|
|00004390| 20 27 64 6f 73 2f 46 69 | 6c 65 4e 6f 74 65 27 28 | 'dos/Fi|leNote'(|
|000043a0| 66 69 63 68 65 66 75 2c | 27 4b 20 27 53 55 42 57 |fichefu,|'K 'SUBW|
|000043b0| 4f 52 44 28 64 4e 2e 70 | 61 72 72 61 6d 2e 4e 6f |ORD(dN.p|arram.No|
|000043c0| 74 65 2c 33 29 29 3b 43 | 41 4c 4c 20 54 65 78 74 |te,3));C|ALL Text|
|000043d0| 6f 28 46 72 61 73 65 2e | 31 27 20 27 66 69 63 68 |o(Frase.|1' 'fich|
|000043e0| 65 66 75 27 20 27 46 72 | 61 73 65 2e 36 37 2c 27 |efu' 'Fr|ase.67,'|
|000043f0| 2a 27 29 3b 43 41 4c 4c | 20 72 65 65 6e 76 69 61 |*');CALL| reenvia|
|00004400| 6d 65 28 64 65 71 75 69 | 65 27 20 27 63 75 61 66 |me(dequi|e' 'cuaf|
|00004410| 69 63 68 27 20 27 63 75 | 61 6e 66 69 63 68 27 20 |ich' 'cu|anfich' |
|00004420| 27 70 6c 61 72 72 65 64 | 27 20 27 69 64 65 6e 74 |'plarred|' 'ident|
|00004430| 69 66 69 64 29 3b 65 6e | 64 3b 65 6e 64 3b 65 6e |ifid);en|d;end;en|
|00004440| 64 3b 72 65 6e 76 69 20 | 3d 20 30 3b 49 46 20 4c |d;renvi |= 0;IF L|
|00004450| 45 46 54 28 57 4f 52 44 | 28 64 4e 2e 70 61 72 72 |EFT(WORD|(dN.parr|
|00004460| 61 6d 2e 4e 6f 74 65 2c | 37 29 2c 35 29 20 3d 20 |am.Note,|7),5) = |
|00004470| 27 58 2d 55 55 45 27 3b | 54 48 45 4e 20 44 4f 3b |'X-UUE';|THEN DO;|
|00004480| 43 41 4c 4c 20 45 78 65 | 63 75 74 65 28 27 75 75 |CALL Exe|cute('uu|
|00004490| 6f 75 74 20 27 66 69 63 | 68 65 66 75 27 20 27 74 |out 'fic|hefu' 't|
|000044a0| 65 6d 70 27 20 56 45 52 | 42 4f 53 45 27 2c 27 66 |emp' VER|BOSE','f|
|000044b0| 75 65 72 61 2e 27 29 3b | 49 46 20 57 4f 52 44 28 |uera.');|IF WORD(|
|000044c0| 66 75 65 72 61 2e 30 2c | 31 29 20 3d 20 27 64 65 |fuera.0,|1) = 'de|
|000044d0| 63 6f 64 69 6e 67 27 3b | 54 48 45 4e 20 44 4f 3b |coding';|THEN DO;|
|000044e0| 66 69 63 6f 6c 20 3d 20 | 57 4f 52 44 28 66 75 65 |ficol = |WORD(fue|
|000044f0| 72 61 2e 30 2c 32 29 3b | 43 41 4c 4c 20 45 78 65 |ra.0,2);|CALL Exe|
|00004500| 63 75 74 65 28 27 63 6f | 70 79 20 27 66 69 63 6f |cute('co|py 'fico|
|00004510| 6c 27 20 27 69 6e 6e 75 | 65 6e 64 6f 29 3b 43 41 |l' 'innu|endo);CA|
|00004520| 4c 4c 20 45 78 65 63 75 | 74 65 28 27 64 65 6c 65 |LL Execu|te('dele|
|00004530| 74 65 20 27 66 69 63 6f | 6c 29 3b 49 46 20 45 58 |te 'fico|l);IF EX|
|00004540| 49 53 54 53 28 69 6e 6e | 75 65 6e 64 6f 29 3b 54 |ISTS(inn|uendo);T|
|00004550| 48 45 4e 20 44 4f 3b 43 | 41 4c 4c 20 45 78 61 6d |HEN DO;C|ALL Exam|
|00004560| 69 6e 65 28 69 6e 6e 75 | 65 6e 64 6f 2c 27 61 66 |ine(innu|endo,'af|
|00004570| 75 2e 27 29 3b 49 46 20 | 61 66 75 2e 53 69 7a 65 |u.');IF |afu.Size|
|00004580| 20 3d 20 63 75 61 6e 66 | 69 63 68 3b 54 48 45 4e | = cuanf|ich;THEN|
|00004590| 20 44 4f 3b 43 41 4c 4c | 20 54 65 78 74 6f 28 46 | DO;CALL| Texto(F|
|000045a0| 72 61 73 65 2e 31 27 20 | 27 6e 75 65 6e 6f 27 20 |rase.1' |'nueno' |
|000045b0| 27 46 72 61 73 65 2e 36 | 36 27 20 27 70 6c 61 72 |'Frase.6|6' 'plar|
|000045c0| 72 65 64 27 20 27 46 72 | 61 73 65 2e 32 2c 27 2b |red' 'Fr|ase.2,'+|
|000045d0| 27 29 3b 64 65 63 6f 64 | 73 20 3d 20 64 65 63 6f |');decod|s = deco|
|000045e0| 64 73 20 2b 31 3b 43 41 | 4c 4c 20 27 64 6f 73 2f |ds +1;CA|LL 'dos/|
|000045f0| 46 69 6c 65 4e 6f 74 65 | 27 28 66 69 63 68 65 66 |FileNote|'(fichef|
|00004600| 75 2c 27 42 20 27 53 55 | 42 57 4f 52 44 28 64 4e |u,'B 'SU|BWORD(dN|
|00004610| 2e 70 61 72 72 61 6d 2e | 4e 6f 74 65 2c 33 29 29 |.parram.|Note,3))|
|00004620| 3b 65 6e 64 3b 45 4c 53 | 45 20 44 4f 3b 72 65 6e |;end;ELS|E DO;ren|
|00004630| 76 69 20 3d 20 31 3b 65 | 6e 64 3b 65 6e 64 3b 65 |vi = 1;e|nd;end;e|
|00004640| 6e 64 3b 45 4c 53 45 20 | 72 65 6e 76 69 20 3d 20 |nd;ELSE |renvi = |
|00004650| 31 3b 49 46 20 72 65 6e | 76 69 20 3d 20 31 3b 54 |1;IF ren|vi = 1;T|
|00004660| 48 45 4e 20 44 4f 3b 41 | 44 44 52 45 53 53 20 43 |HEN DO;A|DDRESS C|
|00004670| 4f 4d 4d 41 4e 44 28 27 | 64 65 6c 65 74 65 20 3e |OMMAND('|delete >|
|00004680| 6e 69 6c 3a 20 27 69 6e | 6e 75 65 6e 64 6f 29 3b |nil: 'in|nuendo);|
|00004690| 43 41 4c 4c 20 27 64 6f | 73 2f 46 69 6c 65 4e 6f |CALL 'do|s/FileNo|
|000046a0| 74 65 27 28 66 69 63 68 | 65 66 75 2c 27 4b 20 27 |te'(fich|efu,'K '|
|000046b0| 53 55 42 57 4f 52 44 28 | 64 4e 2e 70 61 72 72 61 |SUBWORD(|dN.parra|
|000046c0| 6d 2e 4e 6f 74 65 2c 33 | 29 29 3b 43 41 4c 4c 20 |m.Note,3|));CALL |
|000046d0| 54 65 78 74 6f 28 46 72 | 61 73 65 2e 31 27 20 27 |Texto(Fr|ase.1' '|
|000046e0| 66 69 63 68 65 66 75 27 | 20 27 46 72 61 73 65 2e |fichefu'| 'Frase.|
|000046f0| 36 37 2c 27 2a 27 29 3b | 43 41 4c 4c 20 72 65 65 |67,'*');|CALL ree|
|00004700| 6e 76 69 61 6d 65 28 64 | 65 71 75 69 65 27 20 27 |nviame(d|equie' '|
|00004710| 63 75 61 66 69 63 68 27 | 20 27 63 75 61 6e 66 69 |cuafich'| 'cuanfi|
|00004720| 63 68 27 20 27 70 6c 61 | 72 72 65 64 27 20 27 69 |ch' 'pla|rred' 'i|
|00004730| 64 65 6e 74 69 66 69 64 | 29 3b 65 6e 64 3b 65 6e |dentifid|);end;en|
|00004740| 64 3b 62 6f 66 61 69 20 | 3d 20 30 3b 49 46 20 4c |d;bofai |= 0;IF L|
|00004750| 45 46 54 28 57 4f 52 44 | 28 64 4e 2e 70 61 72 72 |EFT(WORD|(dN.parr|
|00004760| 61 6d 2e 4e 6f 74 65 2c | 37 29 2c 33 29 20 3d 20 |am.Note,|7),3) = |
|00004770| 27 50 47 50 27 3b 54 48 | 45 4e 20 44 4f 3b 41 64 |'PGP';TH|EN DO;Ad|
|00004780| 64 72 65 73 73 20 43 6f | 6d 6d 61 6e 64 28 27 70 |dress Co|mmand('p|
|00004790| 67 70 20 2b 42 41 54 43 | 48 4d 4f 44 45 20 2b 56 |gp +BATC|HMODE +V|
|000047a0| 45 52 42 4f 53 45 3d 30 | 20 2b 4e 4f 4d 41 4e 55 |ERBOSE=0| +NOMANU|
|000047b0| 41 4c 3d 6f 66 66 20 27 | 66 69 63 68 65 66 75 27 |AL=off '|fichefu'|
|000047c0| 20 2d 6f 20 27 69 6e 6e | 75 65 6e 64 6f 29 3b 49 | -o 'inn|uendo);I|
|000047d0| 46 20 45 58 49 53 54 53 | 28 69 6e 6e 75 65 6e 64 |F EXISTS|(innuend|
|000047e0| 6f 29 3b 54 48 45 4e 20 | 44 4f 3b 43 41 4c 4c 20 |o);THEN |DO;CALL |
|000047f0| 45 78 61 6d 69 6e 65 28 | 69 6e 6e 75 65 6e 64 6f |Examine(|innuendo|
|00004800| 2c 27 61 66 75 2e 27 29 | 3b 49 46 20 61 66 75 2e |,'afu.')|;IF afu.|
|00004810| 53 69 7a 65 20 3d 20 63 | 75 61 6e 66 69 63 68 3b |Size = c|uanfich;|
|00004820| 54 48 45 4e 20 44 4f 3b | 43 41 4c 4c 20 54 65 78 |THEN DO;|CALL Tex|
|00004830| 74 6f 28 46 72 61 73 65 | 2e 31 27 20 27 6e 75 65 |to(Frase|.1' 'nue|
|00004840| 6e 6f 27 20 27 46 72 61 | 73 65 2e 36 36 27 20 27 |no' 'Fra|se.66' '|
|00004850| 70 6c 61 72 72 65 64 27 | 20 27 46 72 61 73 65 2e |plarred'| 'Frase.|
|00004860| 32 2c 27 2b 27 29 3b 64 | 65 63 6f 64 73 20 3d 20 |2,'+');d|ecods = |
|00004870| 64 65 63 6f 64 73 20 2b | 31 3b 43 41 4c 4c 20 27 |decods +|1;CALL '|
|00004880| 64 6f 73 2f 46 69 6c 65 | 4e 6f 74 65 27 28 66 69 |dos/File|Note'(fi|
|00004890| 63 68 65 66 75 2c 27 42 | 20 27 53 55 42 57 4f 52 |chefu,'B| 'SUBWOR|
|000048a0| 44 28 64 4e 2e 70 61 72 | 72 61 6d 2e 4e 6f 74 65 |D(dN.par|ram.Note|
|000048b0| 2c 33 29 29 3b 65 6e 64 | 3b 45 4c 53 45 20 62 6f |,3));end|;ELSE bo|
|000048c0| 66 61 69 20 3d 20 31 3b | 65 6e 64 3b 45 4c 53 45 |fai = 1;|end;ELSE|
|000048d0| 20 62 6f 66 61 69 20 3d | 20 31 3b 49 46 20 62 6f | bofai =| 1;IF bo|
|000048e0| 66 61 69 20 3d 20 31 3b | 54 48 45 4e 20 44 4f 3b |fai = 1;|THEN DO;|
|000048f0| 41 44 44 52 45 53 53 20 | 43 4f 4d 4d 41 4e 44 28 |ADDRESS |COMMAND(|
|00004900| 27 64 65 6c 65 74 65 20 | 3e 6e 69 6c 3a 20 27 69 |'delete |>nil: 'i|
|00004910| 6e 6e 75 65 6e 64 6f 29 | 3b 43 41 4c 4c 20 27 64 |nnuendo)|;CALL 'd|
|00004920| 6f 73 2f 46 69 6c 65 4e | 6f 74 65 27 28 66 69 63 |os/FileN|ote'(fic|
|00004930| 68 65 66 75 2c 27 4b 20 | 27 53 55 42 57 4f 52 44 |hefu,'K |'SUBWORD|
|00004940| 28 64 4e 2e 70 61 72 72 | 61 6d 2e 4e 6f 74 65 2c |(dN.parr|am.Note,|
|00004950| 33 29 29 3b 43 41 4c 4c | 20 54 65 78 74 6f 28 46 |3));CALL| Texto(F|
|00004960| 72 61 73 65 2e 31 27 20 | 27 66 69 63 68 65 66 75 |rase.1' |'fichefu|
|00004970| 27 20 27 46 72 61 73 65 | 2e 36 37 2c 27 2a 27 29 |' 'Frase|.67,'*')|
|00004980| 3b 43 41 4c 4c 20 72 65 | 65 6e 76 69 61 6d 65 28 |;CALL re|enviame(|
|00004990| 64 65 71 75 69 65 27 20 | 27 63 75 61 66 69 63 68 |dequie' |'cuafich|
|000049a0| 27 20 27 63 75 61 6e 66 | 69 63 68 27 20 27 70 6c |' 'cuanf|ich' 'pl|
|000049b0| 61 72 72 65 64 27 20 27 | 69 64 65 6e 74 69 66 69 |arred' '|identifi|
|000049c0| 64 29 3b 65 6e 64 3b 65 | 6e 64 3b 65 6e 64 3b 65 |d);end;e|nd;end;e|
|000049d0| 6e 64 3b 52 45 54 55 52 | 4e 3b 45 58 49 54 3b 50 |nd;RETUR|N;EXIT;P|
|000049e0| 72 6f 63 65 73 6d 61 69 | 6c 3a 3b 49 46 20 64 65 |rocesmai|l:;IF de|
|000049f0| 63 6f 64 73 20 7e 3d 20 | 30 3b 54 48 45 4e 20 44 |cods ~= |0;THEN D|
|00004a00| 4f 3b 70 72 6f 63 65 75 | 6e 20 3d 20 30 3b 49 46 |O;proceu|n = 0;IF|
|00004a10| 20 6e 6f 69 6d 70 6f 72 | 74 61 72 20 3d 20 30 20 | noimpor|tar = 0 |
|00004a20| 26 20 61 75 74 6f 69 6d | 70 6f 72 74 61 72 20 3d |& autoim|portar =|
|00004a30| 20 31 20 54 48 45 4e 20 | 43 41 4c 4c 20 70 72 6f | 1 THEN |CALL pro|
|00004a40| 63 65 6d 61 3b 49 46 20 | 69 6d 70 6f 72 74 61 72 |cema;IF |importar|
|00004a50| 20 3d 20 31 20 26 20 70 | 72 6f 63 65 75 6e 20 3d | = 1 & p|roceun =|
|00004a60| 20 30 20 54 48 45 4e 20 | 43 41 4c 4c 20 70 72 6f | 0 THEN |CALL pro|
|00004a70| 63 65 6d 61 3b 65 6e 64 | 3b 52 45 54 55 52 4e 3b |cema;end|;RETURN;|
|00004a80| 45 58 49 54 3b 70 72 6f | 63 65 6d 61 3a 3b 70 72 |EXIT;pro|cema:;pr|
|00004a90| 6f 63 65 75 6e 20 3d 20 | 31 3b 49 46 20 66 6d 61 |oceun = |1;IF fma|
|00004aa0| 69 6c 65 72 20 3d 20 27 | 4d 4d 27 3b 54 48 45 4e |iler = '|MM';THEN|
|00004ab0| 20 44 4f 3b 43 41 4c 4c | 20 54 65 78 74 6f 28 46 | DO;CALL| Texto(F|
|00004ac0| 72 61 73 65 2e 39 34 27 | 20 4d 61 69 6c 20 4d 61 |rase.94'| Mail Ma|
|00004ad0| 6e 61 67 65 72 27 2c 27 | 2a 27 29 3b 49 46 20 7e |nager','|*');IF ~|
|00004ae0| 73 68 6f 77 28 27 50 27 | 2c 27 4d 41 49 4c 4d 41 |show('P'|,'MAILMA|
|00004af0| 4e 41 47 45 52 27 29 3b | 54 48 45 4e 20 44 4f 3b |NAGER');|THEN DO;|
|00004b00| 41 44 44 52 45 53 53 20 | 43 4f 4d 4d 41 4e 44 28 |ADDRESS |COMMAND(|
|00004b10| 27 72 75 6e 20 3c 3e 4e | 49 4c 3a 20 6d 6d 3a 62 |'run <>N|IL: mm:b|
|00004b20| 69 6e 2f 6d 6d 27 29 3b | 41 44 44 52 45 53 53 20 |in/mm');|ADDRESS |
|00004b30| 43 4f 4d 4d 41 4e 44 28 | 27 77 61 69 74 66 6f 72 |COMMAND(|'waitfor|
|00004b40| 70 6f 72 74 20 4d 41 49 | 4c 4d 41 4e 41 47 45 52 |port MAI|LMANAGER|
|00004b50| 27 29 3b 49 46 20 52 43 | 20 3e 20 30 3b 54 48 45 |');IF RC| > 0;THE|
|00004b60| 4e 20 44 4f 3b 43 41 4c | 4c 20 54 65 78 74 6f 28 |N DO;CAL|L Texto(|
|00004b70| 27 4d 61 69 6c 65 72 20 | 6e 6f 74 20 72 65 61 64 |'Mailer |not read|
|00004b80| 79 2c 20 79 65 74 2e 27 | 2c 27 21 27 29 3b 65 6e |y, yet.'|,'!');en|
|00004b90| 64 3b 65 6e 64 3b 41 44 | 44 52 45 53 53 20 22 4d |d;end;AD|DRESS "M|
|00004ba0| 41 49 4c 4d 41 4e 41 47 | 45 52 22 3b 4d 4d 5f 41 |AILMANAG|ER";MM_A|
|00004bb0| 72 65 61 73 57 69 6e 3b | 49 46 20 52 43 20 7e 3d |reasWin;|IF RC ~=|
|00004bc0| 20 30 3b 54 48 45 4e 20 | 44 4f 3b 74 65 78 74 20 | 0;THEN |DO;text |
|00004bd0| 3d 20 27 1b 63 27 46 72 | 61 73 65 2e 37 35 7c 7c |= '.c'Fr|ase.75|||
|00004be0| 65 6e 74 65 72 7c 7c 46 | 72 61 73 65 2e 37 36 3b |enter||F|rase.76;|
|00004bf0| 67 61 64 67 65 74 20 3d | 20 22 2a 5f 4f 6b 22 3b |gadget =| "*_Ok";|
|00004c00| 4d 4d 5f 52 65 71 75 65 | 73 74 65 72 20 27 22 4d |MM_Reque|ster '"M|
|00004c10| 4d 20 52 65 71 75 65 73 | 74 65 72 22 27 20 27 74 |M Reques|ter"' 't|
|00004c20| 65 78 74 27 20 27 67 61 | 64 67 65 74 27 3b 65 6e |ext' 'ga|dget';en|
|00004c30| 64 3b 49 46 20 52 43 7e | 3d 30 3b 54 48 45 4e 20 |d;IF RC~|=0;THEN |
|00004c40| 44 4f 3b 44 6f 20 55 4e | 54 49 4c 20 52 43 20 3d |DO;Do UN|TIL RC =|
|00004c50| 20 30 3b 43 41 4c 4c 20 | 45 78 65 63 75 74 65 28 | 0;CALL |Execute(|
|00004c60| 27 57 61 69 74 20 35 27 | 29 3b 4d 4d 5f 41 72 65 |'Wait 5'|);MM_Are|
|00004c70| 61 73 57 69 6e 3b 45 4e | 44 3b 65 6e 64 3b 4d 4d |asWin;EN|D;end;MM|
|00004c80| 5f 49 6d 70 6f 72 74 3b | 65 6e 64 3b 52 45 54 55 |_Import;|end;RETU|
|00004c90| 52 4e 3b 45 58 49 54 3b | 53 69 65 6d 70 72 65 48 |RN;EXIT;|SiempreH|
|00004ca0| 45 41 44 45 4e 4f 4d 41 | 3a 3b 43 41 4c 4c 20 57 |EADENOMA|:;CALL W|
|00004cb0| 72 69 74 65 46 69 6c 65 | 28 68 65 61 64 65 6e 6f |riteFile|(headeno|
|00004cc0| 6d 2c 27 46 72 6f 6d 3a | 20 27 45 4d 41 49 4c 7c |m,'From:| 'EMAIL||
|00004cd0| 7c 65 6e 74 65 72 29 3b | 43 41 4c 4c 20 57 72 69 ||enter);|CALL Wri|
|00004ce0| 74 65 46 69 6c 65 28 68 | 65 61 64 65 6e 6f 6d 2c |teFile(h|eadenom,|
|00004cf0| 27 52 65 70 6c 79 2d 54 | 6f 3a 20 27 45 4d 41 49 |'Reply-T|o: 'EMAI|
|00004d00| 4c 7c 7c 65 6e 74 65 72 | 2c 27 41 70 70 65 6e 64 |L||enter|,'Append|
|00004d10| 27 29 3b 52 45 54 55 52 | 4e 3b 45 58 49 54 3b 53 |');RETUR|N;EXIT;S|
|00004d20| 69 65 6d 70 72 65 48 45 | 41 44 45 4e 4f 4d 42 3a |iempreHE|ADENOMB:|
|00004d30| 3b 43 41 4c 4c 20 57 72 | 69 74 65 46 69 6c 65 28 |;CALL Wr|iteFile(|
|00004d40| 68 65 61 64 65 6e 6f 6d | 2c 27 44 61 74 65 3a 20 |headenom|,'Date: |
|00004d50| 27 4c 45 46 54 28 64 61 | 74 65 28 27 77 27 29 2c |'LEFT(da|te('w'),|
|00004d60| 33 29 27 20 27 64 61 74 | 65 28 29 27 20 27 54 49 |3)' 'dat|e()' 'TI|
|00004d70| 4d 45 28 29 27 20 27 47 | 4d 54 49 7c 7c 65 6e 74 |ME()' 'G|MTI||ent|
|00004d80| 65 72 2c 27 41 70 70 65 | 6e 64 27 29 3b 43 41 4c |er,'Appe|nd');CAL|
|00004d90| 4c 20 57 72 69 74 65 46 | 69 6c 65 28 68 65 61 64 |L WriteF|ile(head|
|00004da0| 65 6e 6f 6d 2c 27 58 2d | 4d 61 69 6c 65 72 3a 20 |enom,'X-|Mailer: |
|00004db0| 6e 65 77 4e 45 54 20 31 | 2e 32 30 20 2d 41 4d 49 |newNET 1|.20 -AMI|
|00004dc0| 47 41 2d 20 42 79 20 41 | 6c 66 72 65 64 6f 20 53 |GA- By A|lfredo S|
|00004dd0| 6f 72 6f 27 65 6e 74 65 | 72 2c 27 41 70 70 65 6e |oro'ente|r,'Appen|
|00004de0| 64 27 29 3b 43 41 4c 4c | 20 57 72 69 74 65 46 69 |d');CALL| WriteFi|
|00004df0| 6c 65 28 68 65 61 64 65 | 6e 6f 6d 2c 27 53 75 62 |le(heade|nom,'Sub|
|00004e00| 6a 65 63 74 3a 20 27 61 | 73 75 6e 74 6f 7c 7c 65 |ject: 'a|sunto||e|
|00004e10| 6e 74 65 72 2c 27 41 70 | 70 65 6e 64 27 29 3b 43 |nter,'Ap|pend');C|
|00004e20| 41 4c 4c 20 57 72 69 74 | 65 46 69 6c 65 28 68 65 |ALL Writ|eFile(he|
|00004e30| 61 64 65 6e 6f 6d 2c 27 | 4d 49 4d 45 2d 56 65 72 |adenom,'|MIME-Ver|
|00004e40| 73 69 6f 6e 3a 20 31 2e | 30 27 65 6e 74 65 72 2c |sion: 1.|0'enter,|
|00004e50| 27 41 70 70 65 6e 64 27 | 29 3b 52 45 54 55 52 4e |'Append'|);RETURN|
|00004e60| 3b 45 58 49 54 3b 72 65 | 65 6e 76 69 61 6d 65 3a |;EXIT;re|enviame:|
|00004e70| 3b 50 41 52 53 45 20 41 | 52 47 20 71 75 69 65 6e |;PARSE A|RG quien|
|00004e80| 20 63 75 61 6c 20 63 75 | 61 6e 74 6f 20 71 75 65 | cual cu|anto que|
|00004e90| 72 65 64 20 66 69 63 68 | 6f 72 69 3b 61 73 75 6e |red fich|ori;asun|
|00004ea0| 74 6f 20 3d 20 27 6e 4e | 20 52 73 52 20 27 71 75 |to = 'nN| RsR 'qu|
|00004eb0| 69 65 6e 27 20 27 63 75 | 61 6c 27 20 27 63 75 61 |ien' 'cu|al' 'cua|
|00004ec0| 6e 74 6f 27 20 27 71 75 | 65 72 65 64 27 20 27 66 |nto' 'qu|ered' 'f|
|00004ed0| 69 63 68 6f 72 69 3b 43 | 41 4c 4c 20 4e 4e 4f 4d |ichori;C|ALL NNOM|
|00004ee0| 42 52 55 54 3b 68 65 61 | 64 65 6e 6f 6d 20 3d 20 |BRUT;hea|denom = |
|00004ef0| 61 64 64 70 61 72 74 28 | 6f 75 74 62 6f 75 6e 64 |addpart(|outbound|
|00004f00| 2c 27 6e 65 77 4e 45 54 | 27 29 27 2f 27 6e 6e 6f |,'newNET|')'/'nno|
|00004f10| 6d 62 3b 43 61 6c 6c 20 | 53 69 65 6d 70 72 65 48 |mb;Call |SiempreH|
|00004f20| 45 41 44 45 4e 4f 4d 41 | 3b 43 41 4c 4c 20 57 72 |EADENOMA|;CALL Wr|
|00004f30| 69 74 65 46 69 6c 65 28 | 68 65 61 64 65 6e 6f 6d |iteFile(|headenom|
|00004f40| 2c 27 54 6f 3a 20 27 71 | 75 69 65 6e 2c 27 41 70 |,'To: 'q|uien,'Ap|
|00004f50| 70 65 6e 64 27 29 3b 43 | 61 6c 6c 20 53 69 65 6d |pend');C|all Siem|
|00004f60| 70 72 65 48 45 41 44 45 | 4e 4f 4d 42 3b 43 41 4c |preHEADE|NOMB;CAL|
|00004f70| 4c 20 57 72 69 74 65 46 | 69 6c 65 28 68 65 61 64 |L WriteF|ile(head|
|00004f80| 65 6e 6f 6d 2c 27 43 6f | 6e 74 65 6e 74 2d 54 79 |enom,'Co|ntent-Ty|
|00004f90| 70 65 3a 20 74 65 78 74 | 2f 70 6c 61 69 6e 3b 20 |pe: text|/plain; |
|00004fa0| 63 68 61 72 73 65 74 3d | 69 73 6f 2d 38 38 35 39 |charset=|iso-8859|
|00004fb0| 2d 31 27 65 6e 74 65 72 | 2c 27 41 70 70 65 6e 64 |-1'enter|,'Append|
|00004fc0| 27 29 3b 43 41 4c 4c 20 | 57 72 69 74 65 46 69 6c |');CALL |WriteFil|
|00004fd0| 65 28 68 65 61 64 65 6e | 6f 6d 2c 27 43 6f 6e 74 |e(headen|om,'Cont|
|00004fe0| 65 6e 74 2d 54 72 61 6e | 73 66 65 72 2d 45 6e 63 |ent-Tran|sfer-Enc|
|00004ff0| 6f 64 69 6e 67 3a 20 71 | 75 6f 74 65 64 2d 70 72 |oding: q|uoted-pr|
|00005000| 69 6e 74 61 62 6c 65 27 | 65 6e 74 65 72 2c 27 41 |intable'|enter,'A|
|00005010| 70 70 65 6e 64 27 29 3b | 43 41 4c 4c 20 57 72 69 |ppend');|CALL Wri|
|00005020| 74 65 46 69 6c 65 28 68 | 65 61 64 65 6e 6f 6d 2c |teFile(h|eadenom,|
|00005030| 65 6e 74 65 72 2c 27 41 | 70 70 65 6e 64 27 29 3b |enter,'A|ppend');|
|00005040| 43 41 4c 4c 20 57 72 69 | 74 65 46 69 6c 65 28 68 |CALL Wri|teFile(h|
|00005050| 65 61 64 65 6e 6f 6d 2c | 46 72 61 73 65 2e 37 31 |eadenom,|Frase.71|
|00005060| 7c 7c 65 6e 74 65 72 2c | 27 41 70 70 65 6e 64 27 |||enter,|'Append'|
|00005070| 29 3b 43 41 4c 4c 20 57 | 72 69 74 65 46 69 6c 65 |);CALL W|riteFile|
|00005080| 28 68 65 61 64 65 6e 6f | 6d 2c 46 72 61 73 65 2e |(headeno|m,Frase.|
|00005090| 31 27 3a 20 27 63 75 61 | 6c 7c 7c 65 6e 74 65 72 |1': 'cua|l||enter|
|000050a0| 2c 27 41 70 70 65 6e 64 | 27 29 3b 43 41 4c 4c 20 |,'Append|');CALL |
|000050b0| 57 72 69 74 65 46 69 6c | 65 28 68 65 61 64 65 6e |WriteFil|e(headen|
|000050c0| 6f 6d 2c 46 72 61 73 65 | 2e 35 32 27 3a 20 27 63 |om,Frase|.52': 'c|
|000050d0| 75 61 6e 74 6f 7c 7c 65 | 6e 74 65 72 2c 27 41 70 |uanto||e|nter,'Ap|
|000050e0| 70 65 6e 64 27 29 3b 43 | 41 4c 4c 20 57 72 69 74 |pend');C|ALL Writ|
|000050f0| 65 46 69 6c 65 28 68 65 | 61 64 65 6e 6f 6d 2c 46 |eFile(he|adenom,F|
|00005100| 72 61 73 65 2e 35 33 27 | 3a 20 27 71 75 65 72 65 |rase.53'|: 'quere|
|00005110| 64 7c 7c 65 6e 74 65 72 | 2c 27 41 70 70 65 6e 64 |d||enter|,'Append|
|00005120| 27 29 3b 43 41 4c 4c 20 | 57 72 69 74 65 46 69 6c |');CALL |WriteFil|
|00005130| 65 28 68 65 61 64 65 6e | 6f 6d 2c 46 72 61 73 65 |e(headen|om,Frase|
|00005140| 2e 37 32 27 3a 20 27 66 | 69 63 68 6f 72 69 7c 7c |.72': 'f|ichori|||
|00005150| 65 6e 74 65 72 2c 27 41 | 70 70 65 6e 64 27 29 3b |enter,'A|ppend');|
|00005160| 43 41 4c 4c 20 57 72 69 | 74 65 46 69 6c 65 28 68 |CALL Wri|teFile(h|
|00005170| 65 61 64 65 6e 6f 6d 2c | 65 6e 74 65 72 2c 27 41 |eadenom,|enter,'A|
|00005180| 70 70 65 6e 64 27 29 3b | 43 41 4c 4c 20 27 64 6f |ppend');|CALL 'do|
|00005190| 73 2f 46 69 6c 65 4e 6f | 74 65 27 28 68 65 64 65 |s/FileNo|te'(hede|
|000051a0| 6e 6f 6d 2c 27 45 20 27 | 71 75 69 65 6e 27 20 27 |nom,'E '|quien' '|
|000051b0| 63 75 61 6c 27 20 27 63 | 75 61 6e 74 6f 27 20 27 |cual' 'c|uanto' '|
|000051c0| 71 75 65 72 65 64 27 20 | 27 66 69 63 68 6f 72 69 |quered' |'fichori|
|000051d0| 27 20 4e 4f 4e 45 27 29 | 3b 52 45 54 55 52 4e 3b |' NONE')|;RETURN;|
|000051e0| 45 58 49 54 3b 42 6f 72 | 72 61 64 6f 73 3a 3b 43 |EXIT;Bor|rados:;C|
|000051f0| 41 4c 4c 20 45 78 41 6c | 6c 28 61 64 64 70 61 72 |ALL ExAl|l(addpar|
|00005200| 74 28 6f 75 74 62 6f 75 | 6e 64 2c 27 6e 65 77 4e |t(outbou|nd,'newN|
|00005210| 45 54 27 29 27 2f 6e 65 | 77 4e 45 54 2d 23 3f 27 |ET')'/ne|wNET-#?'|
|00005220| 2c 27 62 4e 2e 20 54 59 | 50 45 20 31 33 35 36 27 |,'bN. TY|PE 1356'|
|00005230| 29 3b 43 41 4c 4c 20 54 | 65 78 74 6f 28 46 72 61 |);CALL T|exto(Fra|
|00005240| 73 65 2e 39 33 2c 27 2d | 27 29 3b 44 52 4f 50 20 |se.93,'-|');DROP |
|00005250| 61 64 69 6f 73 70 75 65 | 6e 2e 3b 61 62 6f 72 72 |adiospue|n.;aborr|
|00005260| 20 3d 20 30 3b 44 6f 20 | 6d 69 6c 75 70 20 3d 20 | = 0;Do |milup = |
|00005270| 30 20 74 6f 20 62 4e 2e | 63 6f 75 6e 74 2d 31 3b |0 to bN.|count-1;|
|00005280| 49 46 20 57 4f 52 44 28 | 62 4e 2e 6d 69 6c 75 70 |IF WORD(|bN.milup|
|00005290| 2e 4e 6f 74 65 2c 31 29 | 20 3d 20 27 42 27 3b 54 |.Note,1)| = 'B';T|
|000052a0| 48 45 4e 20 44 4f 3b 61 | 62 6f 72 72 20 3d 20 61 |HEN DO;a|borr = a|
|000052b0| 62 6f 72 72 20 2b 20 31 | 3b 61 64 69 6f 73 70 75 |borr + 1|;adiospu|
|000052c0| 65 6e 2e 61 62 6f 72 72 | 20 3d 20 62 4e 2e 6d 69 |en.aborr| = bN.mi|
|000052d0| 6c 75 70 2e 4e 61 6d 65 | 3b 65 6e 64 3b 49 46 20 |lup.Name|;end;IF |
|000052e0| 57 4f 52 44 28 62 4e 2e | 6d 69 6c 75 70 2e 4e 6f |WORD(bN.|milup.No|
|000052f0| 74 65 2c 31 29 20 3d 20 | 27 41 27 3b 54 48 45 4e |te,1) = |'A';THEN|
|00005300| 20 44 4f 3b 50 41 52 53 | 45 20 76 61 72 20 62 4e | DO;PARS|E var bN|
|00005310| 2e 6d 69 6c 75 70 2e 4e | 61 6d 65 20 27 6e 65 77 |.milup.N|ame 'new|
|00005320| 4e 45 54 2d 27 64 69 61 | 6c 6d 61 27 2e 27 6c 6f |NET-'dia|lma'.'lo|
|00005330| 71 75 65 73 65 61 3b 64 | 69 68 6f 79 20 3d 20 64 |quesea;d|ihoy = d|
|00005340| 61 74 65 28 62 29 3b 49 | 46 20 64 69 68 6f 79 2d |ate(b);I|F dihoy-|
|00005350| 64 69 61 6c 6d 61 20 3e | 20 44 41 59 53 3b 54 48 |dialma >| DAYS;TH|
|00005360| 45 4e 20 44 4f 3b 61 62 | 6f 72 72 20 3d 20 61 62 |EN DO;ab|orr = ab|
|00005370| 6f 72 72 20 2b 20 31 3b | 61 64 69 6f 73 70 75 65 |orr + 1;|adiospue|
|00005380| 6e 2e 61 62 6f 72 72 20 | 3d 20 62 4e 2e 6d 69 6c |n.aborr |= bN.mil|
|00005390| 75 70 2e 4e 61 6d 65 3b | 65 6e 64 3b 65 6e 64 3b |up.Name;|end;end;|
|000053a0| 49 46 20 57 4f 52 44 28 | 62 4e 2e 6d 69 6c 75 70 |IF WORD(|bN.milup|
|000053b0| 2e 4e 6f 74 65 2c 31 29 | 20 3d 20 27 4b 27 3b 54 |.Note,1)| = 'K';T|
|000053c0| 48 45 4e 20 44 4f 3b 50 | 41 52 53 45 20 76 61 72 |HEN DO;P|ARSE var|
|000053d0| 20 62 4e 2e 6d 69 6c 75 | 70 2e 4e 61 6d 65 20 27 | bN.milu|p.Name '|
|000053e0| 6e 65 77 4e 45 54 2d 27 | 64 69 61 6c 6d 61 27 2e |newNET-'|dialma'.|
|000053f0| 27 6c 6f 71 75 65 73 65 | 61 3b 64 69 68 6f 79 20 |'loquese|a;dihoy |
|00005400| 3d 20 64 61 74 65 28 62 | 29 3b 49 46 20 64 69 68 |= date(b|);IF dih|
|00005410| 6f 79 2d 64 69 61 6c 6d | 61 20 3e 20 37 3b 54 48 |oy-dialm|a > 7;TH|
|00005420| 45 4e 20 44 4f 3b 61 62 | 6f 72 72 20 3d 20 61 62 |EN DO;ab|orr = ab|
|00005430| 6f 72 72 20 2b 20 31 3b | 61 64 69 6f 73 70 75 65 |orr + 1;|adiospue|
|00005440| 6e 2e 61 62 6f 72 72 20 | 3d 20 62 4e 2e 6d 69 6c |n.aborr |= bN.mil|
|00005450| 75 70 2e 4e 61 6d 65 3b | 65 6e 64 3b 65 6e 64 3b |up.Name;|end;end;|
|00005460| 65 6e 64 3b 64 6f 20 6d | 65 62 6f 72 72 73 20 3d |end;do m|eborrs =|
|00005470| 20 31 20 74 6f 20 61 62 | 6f 72 72 3b 43 41 4c 4c | 1 to ab|orr;CALL|
|00005480| 20 45 78 65 63 75 74 65 | 28 27 44 45 4c 45 54 45 | Execute|('DELETE|
|00005490| 20 27 61 64 64 70 61 72 | 74 28 6f 75 74 62 6f 75 | 'addpar|t(outbou|
|000054a0| 6e 64 2c 27 6e 65 77 4e | 45 54 27 29 27 2f 27 61 |nd,'newN|ET')'/'a|
|000054b0| 64 69 6f 73 70 75 65 6e | 2e 6d 65 62 6f 72 72 73 |diospuen|.meborrs|
|000054c0| 29 3b 65 6e 64 3b 49 46 | 20 61 62 6f 72 72 20 7e |);end;IF| aborr ~|
|000054d0| 3d 20 30 20 54 48 45 4e | 20 43 41 4c 4c 20 54 65 |= 0 THEN| CALL Te|
|000054e0| 78 74 6f 28 61 62 6f 72 | 72 27 20 27 46 72 61 73 |xto(abor|r' 'Fras|
|000054f0| 65 2e 36 35 2c 27 21 27 | 29 3b 52 45 54 55 52 4e |e.65,'!'|);RETURN|
|00005500| 3b 45 58 49 54 3b 6e 75 | 65 76 6f 62 75 6e 64 3a |;EXIT;nu|evobund:|
|00005510| 3b 50 41 52 53 45 20 41 | 52 47 20 65 78 74 65 6e |;PARSE A|RG exten|
|00005520| 73 69 3b 72 65 73 75 20 | 3d 20 64 32 78 28 52 49 |si;resu |= d2x(RI|
|00005530| 47 48 54 28 54 49 4d 45 | 28 27 65 27 29 2c 31 29 |GHT(TIME|('e'),1)|
|00005540| 2b 61 7a 61 72 28 36 29 | 29 7c 7c 64 32 78 28 61 |+azar(6)|)||d2x(a|
|00005550| 7a 61 72 28 31 35 29 29 | 7c 7c 64 32 78 28 61 7a |zar(15))|||d2x(az|
|00005560| 61 72 28 31 35 29 29 7c | 7c 64 32 78 28 61 7a 61 |ar(15))|||d2x(aza|
|00005570| 72 28 31 35 29 29 7c 7c | 64 32 78 28 61 7a 61 72 |r(15))|||d2x(azar|
|00005580| 28 31 35 29 29 7c 7c 64 | 32 78 28 61 7a 61 72 28 |(15))||d|2x(azar(|
|00005590| 31 35 29 29 7c 7c 64 32 | 78 28 4c 45 46 54 28 54 |15))||d2|x(LEFT(T|
|000055a0| 49 4d 45 28 27 65 27 29 | 2c 31 29 2b 61 7a 61 72 |IME('e')|,1)+azar|
|000055b0| 28 36 29 29 7c 7c 64 32 | 78 28 61 7a 61 72 28 31 |(6))||d2|x(azar(1|
|000055c0| 35 29 29 27 2e 27 65 78 | 74 65 6e 73 69 3b 52 45 |5))'.'ex|tensi;RE|
|000055d0| 54 55 52 4e 20 72 65 73 | 75 3b 45 58 49 54 3b 41 |TURN res|u;EXIT;A|
|000055e0| 5a 41 52 3a 3b 50 41 52 | 53 45 20 41 52 47 20 6d |ZAR:;PAR|SE ARG m|
|000055f0| 61 78 69 3b 76 61 6c 6f | 72 20 3d 20 4c 45 46 54 |axi;valo|r = LEFT|
|00005600| 28 72 6e 64 28 29 2c 34 | 29 2a 6d 61 78 69 3b 73 |(rnd(),4|)*maxi;s|
|00005610| 75 6d 61 6e 64 6f 20 3d | 20 30 3b 49 46 20 52 49 |umando =| 0;IF RI|
|00005620| 47 48 54 28 76 61 6c 6f | 72 2c 32 29 20 3e 20 34 |GHT(valo|r,2) > 4|
|00005630| 39 20 54 48 45 4e 20 73 | 75 6d 61 6e 64 6f 20 3d |9 THEN s|umando =|
|00005640| 20 31 3b 49 46 20 70 6f | 73 28 27 2e 27 2c 76 61 | 1;IF po|s('.',va|
|00005650| 6c 6f 72 29 20 3d 20 33 | 20 54 48 45 4e 20 76 61 |lor) = 3| THEN va|
|00005660| 6c 6f 72 20 3d 20 4c 45 | 46 54 28 76 61 6c 6f 72 |lor = LE|FT(valor|
|00005670| 2c 32 29 3b 45 4c 53 45 | 20 76 61 6c 6f 72 20 3d |,2);ELSE| valor =|
|00005680| 20 4c 45 46 54 28 76 61 | 6c 6f 72 2c 31 29 3b 76 | LEFT(va|lor,1);v|
|00005690| 61 6c 6f 72 20 3d 20 76 | 61 6c 6f 72 20 2b 20 73 |alor = v|alor + s|
|000056a0| 75 6d 61 6e 64 6f 3b 52 | 45 54 55 52 4e 20 76 61 |umando;R|ETURN va|
|000056b0| 6c 6f 72 3b 45 58 49 54 | 3b 4d 49 52 41 4c 4f 3a |lor;EXIT|;MIRALO:|
|000056c0| 3b 50 41 52 53 45 20 41 | 52 47 20 6e 6f 6d 62 72 |;PARSE A|RG nombr|
|000056d0| 3b 66 69 63 6c 6f 20 3d | 20 41 64 64 50 61 72 74 |;ficlo =| AddPart|
|000056e0| 28 6f 75 74 62 6f 75 6e | 64 2c 6e 6f 64 6e 75 6d |(outboun|d,nodnum|
|000056f0| 2e 6c 75 75 70 27 2e 27 | 6e 6f 6d 62 72 29 3b 49 |.luup'.'|nombr);I|
|00005700| 46 20 45 58 49 53 54 53 | 28 66 69 63 6c 6f 29 3b |F EXISTS|(ficlo);|
|00005710| 54 48 45 4e 20 44 4f 3b | 43 41 4c 4c 20 53 74 65 |THEN DO;|CALL Ste|
|00005720| 6d 52 65 61 64 28 66 69 | 63 6c 6f 2c 27 72 65 6c |mRead(fi|clo,'rel|
|00005730| 6f 2e 27 29 3b 64 6f 20 | 65 6c 75 20 3d 20 30 20 |o.');do |elu = 0 |
|00005740| 74 6f 20 72 65 6c 6f 2e | 63 6f 75 6e 74 2d 31 3b |to relo.|count-1;|
|00005750| 66 69 63 6e 65 20 3d 20 | 72 65 6c 6f 2e 65 6c 75 |ficne = |relo.elu|
|00005760| 3b 49 46 20 6c 65 6e 67 | 74 68 28 66 69 63 6e 65 |;IF leng|th(ficne|
|00005770| 29 20 3c 20 33 20 54 48 | 45 4e 20 66 69 63 6e 65 |) < 3 TH|EN ficne|
|00005780| 20 3d 20 27 27 3b 49 46 | 20 66 69 63 6e 65 20 7e | = '';IF| ficne ~|
|00005790| 3d 20 27 27 3b 54 48 45 | 4e 20 44 4f 3b 62 6f 72 |= '';THE|N DO;bor|
|000057a0| 73 20 3d 20 30 3b 49 46 | 20 4c 45 46 54 28 66 69 |s = 0;IF| LEFT(fi|
|000057b0| 63 6e 65 2c 31 29 20 3d | 20 27 5e 27 20 7c 20 4c |cne,1) =| '^' | L|
|000057c0| 45 46 54 28 66 69 63 6e | 65 2c 31 29 20 3d 20 27 |EFT(ficn|e,1) = '|
|000057d0| 23 27 20 7c 20 4c 45 46 | 54 28 66 69 63 6e 65 2c |#' | LEF|T(ficne,|
|000057e0| 31 29 20 3d 20 27 2d 27 | 3b 54 48 45 4e 20 44 4f |1) = '-'|;THEN DO|
|000057f0| 3b 62 6f 72 73 20 3d 20 | 4c 45 46 54 28 66 69 63 |;bors = |LEFT(fic|
|00005800| 6e 65 2c 31 29 3b 66 69 | 63 6e 65 20 3d 20 52 49 |ne,1);fi|cne = RI|
|00005810| 47 48 54 28 66 69 63 6e | 65 2c 6c 65 6e 67 74 68 |GHT(ficn|e,length|
|00005820| 28 66 69 63 6e 65 29 2d | 31 29 3b 65 6e 64 3b 43 |(ficne)-|1);end;C|
|00005830| 41 4c 4c 20 43 6f 70 69 | 61 46 69 63 6e 65 3b 65 |ALL Copi|aFicne;e|
|00005840| 6e 64 3b 65 6e 64 3b 41 | 44 44 52 45 53 53 20 43 |nd;end;A|DDRESS C|
|00005850| 4f 4d 4d 41 4e 44 28 27 | 44 65 6c 65 74 65 20 3e |OMMAND('|Delete >|
|00005860| 4e 49 4c 3a 20 27 66 69 | 63 6c 6f 29 3b 65 6e 64 |NIL: 'fi|clo);end|
|00005870| 3b 52 45 54 55 52 4e 3b | 45 58 49 54 3b 4d 49 52 |;RETURN;|EXIT;MIR|
|00005880| 41 55 54 3a 3b 50 41 52 | 53 45 20 41 52 47 20 6e |AUT:;PAR|SE ARG n|
|00005890| 6f 6d 62 72 3b 62 6f 72 | 73 20 3d 20 27 5e 27 3b |ombr;bor|s = '^';|
|000058a0| 66 69 63 6c 6f 20 3d 20 | 41 64 64 50 61 72 74 28 |ficlo = |AddPart(|
|000058b0| 6f 75 74 62 6f 75 6e 64 | 2c 6e 6f 64 6e 75 6d 2e |outbound|,nodnum.|
|000058c0| 6c 75 75 70 27 2e 27 6e | 6f 6d 62 72 29 3b 49 46 |luup'.'n|ombr);IF|
|000058d0| 20 45 58 49 53 54 53 28 | 66 69 63 6c 6f 29 3b 54 | EXISTS(|ficlo);T|
|000058e0| 48 45 4e 20 44 4f 3b 66 | 69 63 6e 65 20 3d 20 66 |HEN DO;f|icne = f|
|000058f0| 69 63 6c 6f 3b 43 41 4c | 4c 20 43 6f 70 69 61 46 |iclo;CAL|L CopiaF|
|00005900| 69 63 6e 65 3b 65 6e 64 | 3b 52 45 54 55 52 4e 3b |icne;end|;RETURN;|
|00005910| 45 58 49 54 3b 4e 4e 4f | 4d 42 52 55 54 3a 3b 6f |EXIT;NNO|MBRUT:;o|
|00005920| 6a 6f 20 3d 20 30 3b 65 | 20 3d 20 30 3b 64 6f 20 |jo = 0;e| = 0;do |
|00005930| 75 6e 74 69 6c 20 6f 6a | 6f 20 3d 20 31 3b 65 20 |until oj|o = 1;e |
|00005940| 3d 20 65 20 2b 20 31 3b | 6e 6e 6f 6d 62 20 3d 20 |= e + 1;|nnomb = |
|00005950| 27 6e 65 77 4e 45 54 2d | 27 64 61 74 65 28 62 29 |'newNET-|'date(b)|
|00005960| 27 2e 27 65 3b 49 46 20 | 7e 45 58 49 53 54 53 28 |'.'e;IF |~EXISTS(|
|00005970| 61 64 64 70 61 72 74 28 | 6f 75 74 62 6f 75 6e 64 |addpart(|outbound|
|00005980| 2c 27 6e 65 77 4e 45 54 | 27 29 27 2f 27 6e 6e 6f |,'newNET|')'/'nno|
|00005990| 6d 62 29 20 54 48 45 4e | 20 6f 6a 6f 20 3d 20 31 |mb) THEN| ojo = 1|
|000059a0| 3b 65 6e 64 3b 52 45 54 | 55 52 4e 3b 45 58 49 54 |;end;RET|URN;EXIT|
|000059b0| 3b 59 41 4d 4e 4f 4d 42 | 52 49 3a 3b 6f 6a 6f 20 |;YAMNOMB|RI:;ojo |
|000059c0| 3d 20 30 3b 65 20 3d 20 | 30 3b 64 6f 20 75 6e 74 |= 0;e = |0;do unt|
|000059d0| 69 6c 20 6f 6a 6f 20 3d | 20 31 3b 65 20 3d 20 65 |il ojo =| 1;e = e|
|000059e0| 20 2b 20 31 3b 79 61 6d | 6e 6f 6d 62 20 3d 20 52 | + 1;yam|nomb = R|
|000059f0| 49 47 48 54 28 27 30 27 | 64 61 74 65 28 69 29 2c |IGHT('0'|date(i),|
|00005a00| 35 29 27 2e 27 52 49 47 | 48 54 28 27 30 30 27 65 |5)'.'RIG|HT('00'e|
|00005a10| 2c 33 29 3b 49 46 20 7e | 45 58 49 53 54 53 28 27 |,3);IF ~|EXISTS('|
|00005a20| 59 41 4d 3a 69 6e 63 6f | 6d 69 6e 67 2f 27 79 61 |YAM:inco|ming/'ya|
|00005a30| 6d 6e 6f 6d 62 29 20 54 | 48 45 4e 20 6f 6a 6f 20 |mnomb) T|HEN ojo |
|00005a40| 3d 20 31 3b 65 6e 64 3b | 52 45 54 55 52 4e 3b 45 |= 1;end;|RETURN;E|
|00005a50| 58 49 54 3b 43 6f 70 69 | 61 46 69 63 6e 65 3a 3b |XIT;Copi|aFicne:;|
|00005a60| 49 46 20 45 58 49 53 54 | 53 28 66 69 63 6e 65 29 |IF EXIST|S(ficne)|
|00005a70| 3b 54 48 45 4e 20 44 4f | 3b 43 41 4c 4c 20 4e 4e |;THEN DO|;CALL NN|
|00005a80| 4f 4d 42 52 55 54 3b 49 | 46 20 62 6f 72 73 20 7e |OMBRUT;I|F bors ~|
|00005a90| 3d 20 30 3b 54 48 45 4e | 20 44 4f 3b 49 46 20 4c |= 0;THEN| DO;IF L|
|00005aa0| 45 46 54 28 73 61 6d 65 | 6c 6f 63 6b 28 70 61 74 |EFT(same|lock(pat|
|00005ab0| 68 70 61 72 74 28 66 69 | 63 6e 65 29 2c 6f 75 74 |hpart(fi|cne),out|
|00005ac0| 62 6f 75 6e 64 29 2c 34 | 29 20 3d 20 27 53 41 4d |bound),4|) = 'SAM|
|00005ad0| 45 27 20 54 48 45 4e 20 | 41 44 44 52 45 53 53 20 |E' THEN |ADDRESS |
|00005ae0| 43 4f 4d 4d 41 4e 44 28 | 27 72 65 6e 61 6d 65 20 |COMMAND(|'rename |
|00005af0| 27 66 69 63 6e 65 27 20 | 27 61 64 64 70 61 72 74 |'ficne' |'addpart|
|00005b00| 28 6f 75 74 62 6f 75 6e | 64 2c 27 6e 65 77 4e 45 |(outboun|d,'newNE|
|00005b10| 54 27 29 27 2f 27 6e 6e | 6f 6d 62 29 3b 45 4c 53 |T')'/'nn|omb);ELS|
|00005b20| 45 20 44 4f 3b 41 44 44 | 52 45 53 53 20 43 4f 4d |E DO;ADD|RESS COM|
|00005b30| 4d 41 4e 44 28 27 63 6f | 70 79 20 3e 4e 49 4c 3a |MAND('co|py >NIL:|
|00005b40| 20 27 66 69 63 6e 65 27 | 20 27 61 64 64 70 61 72 | 'ficne'| 'addpar|
|00005b50| 74 28 6f 75 74 62 6f 75 | 6e 64 2c 27 6e 65 77 4e |t(outbou|nd,'newN|
|00005b60| 45 54 27 29 27 2f 27 6e | 6e 6f 6d 62 29 3b 41 44 |ET')'/'n|nomb);AD|
|00005b70| 44 52 45 53 53 20 43 4f | 4d 4d 41 4e 44 28 27 64 |DRESS CO|MMAND('d|
|00005b80| 65 6c 65 74 65 20 3e 4e | 49 4c 3a 20 27 66 69 63 |elete >N|IL: 'fic|
|00005b90| 6e 65 29 3b 65 6e 64 3b | 65 6e 64 3b 49 46 20 62 |ne);end;|end;IF b|
|00005ba0| 6f 72 73 20 3d 20 30 20 | 54 48 45 4e 20 41 44 44 |ors = 0 |THEN ADD|
|00005bb0| 52 45 53 53 20 43 4f 4d | 4d 41 4e 44 28 27 63 6f |RESS COM|MAND('co|
|00005bc0| 70 79 20 3e 4e 49 4c 3a | 20 27 66 69 63 6e 65 27 |py >NIL:| 'ficne'|
|00005bd0| 20 27 61 64 64 70 61 72 | 74 28 6f 75 74 62 6f 75 | 'addpar|t(outbou|
|00005be0| 6e 64 2c 27 6e 65 77 4e | 45 54 27 29 27 2f 27 6e |nd,'newN|ET')'/'n|
|00005bf0| 6e 6f 6d 62 29 3b 43 41 | 4c 4c 20 27 64 6f 73 2f |nomb);CA|LL 'dos/|
|00005c00| 46 69 6c 65 4e 6f 74 65 | 27 28 61 64 64 70 61 72 |FileNote|'(addpar|
|00005c10| 74 28 6f 75 74 62 6f 75 | 6e 64 2c 27 6e 65 77 4e |t(outbou|nd,'newN|
|00005c20| 45 54 27 29 27 2f 27 6e | 6e 6f 6d 62 2c 27 43 20 |ET')'/'n|nomb,'C |
|00005c30| 27 66 69 6c 65 70 61 72 | 74 28 66 69 63 6e 65 29 |'filepar|t(ficne)|
|00005c40| 27 20 27 6e 6f 64 72 65 | 64 2e 6c 75 75 70 27 20 |' 'nodre|d.luup' |
|00005c50| 27 6e 6f 64 6d 61 69 2e | 6c 75 75 70 27 20 27 6e |'nodmai.|luup' 'n|
|00005c60| 6f 64 6d 65 74 2e 6c 75 | 75 70 29 3b 49 46 20 62 |odmet.lu|up);IF b|
|00005c70| 6f 72 73 20 3d 20 27 5e | 27 20 54 48 45 4e 20 43 |ors = '^|' THEN C|
|00005c80| 41 4c 4c 20 54 65 78 74 | 6f 28 66 72 61 73 65 2e |ALL Text|o(frase.|
|00005c90| 31 27 20 27 66 69 6c 65 | 70 61 72 74 28 66 69 63 |1' 'file|part(fic|
|00005ca0| 6e 65 29 27 20 27 66 72 | 61 73 65 2e 32 2c 27 2b |ne)' 'fr|ase.2,'+|
|00005cb0| 27 29 3b 49 46 20 62 6f | 72 73 20 3d 20 27 23 27 |');IF bo|rs = '#'|
|00005cc0| 20 54 48 45 4e 20 41 44 | 44 52 45 53 53 20 43 4f | THEN AD|DRESS CO|
|00005cd0| 4d 4d 41 4e 44 28 27 45 | 43 48 4f 20 3e 27 66 69 |MMAND('E|CHO >'fi|
|00005ce0| 63 6e 65 27 20 4e 4f 4c | 49 4e 45 27 29 3b 49 46 |cne' NOL|INE');IF|
|00005cf0| 20 62 6f 72 73 20 3d 20 | 30 20 54 48 45 4e 20 43 | bors = |0 THEN C|
|00005d00| 41 4c 4c 20 54 65 78 74 | 6f 28 66 72 61 73 65 2e |ALL Text|o(frase.|
|00005d10| 31 27 20 27 66 69 6c 65 | 70 61 72 74 28 66 69 63 |1' 'file|part(fic|
|00005d20| 6e 65 29 27 20 27 66 72 | 61 73 65 2e 33 2c 27 2b |ne)' 'fr|ase.3,'+|
|00005d30| 27 29 3b 65 6e 64 3b 52 | 45 54 55 52 4e 3b 45 58 |');end;R|ETURN;EX|
|00005d40| 49 54 3b 54 45 58 54 4f | 3a 3b 50 41 52 53 45 20 |IT;TEXTO|:;PARSE |
|00005d50| 41 52 47 20 74 65 78 74 | 6f 2c 74 69 70 6f 3b 63 |ARG text|o,tipo;c|
|00005d60| 61 64 65 6e 61 73 73 20 | 3d 20 74 69 70 6f 27 20 |adenass |= tipo' |
|00005d70| 27 64 61 74 65 28 29 27 | 20 2d 20 27 54 49 4d 45 |'date()'| - 'TIME|
|00005d80| 28 29 27 3a 20 27 74 65 | 78 74 6f 3b 73 63 61 64 |()': 'te|xto;scad|
|00005d90| 65 6e 61 20 3d 20 63 61 | 64 65 6e 61 73 73 3b 49 |ena = ca|denass;I|
|00005da0| 46 20 74 65 78 74 6f 20 | 3d 20 6e 70 72 6f 67 72 |F texto |= nprogr|
|00005db0| 61 6d 61 7c 7c 46 72 61 | 73 65 2e 38 31 20 54 48 |ama||Fra|se.81 TH|
|00005dc0| 45 4e 20 73 63 61 64 65 | 6e 61 20 3d 20 74 69 70 |EN scade|na = tip|
|00005dd0| 6f 27 20 27 64 61 74 65 | 28 29 27 20 2d 20 27 54 |o' 'date|()' - 'T|
|00005de0| 49 4d 45 28 29 27 3a 20 | 1b 5b 34 31 3b 33 32 3b |IME()': |.[41;32;|
|00005df0| 31 6d 27 6e 70 72 6f 67 | 72 61 6d 61 27 1b 5b 30 |1m'nprog|rama'.[0|
|00005e00| 6d 20 27 46 72 61 73 65 | 2e 38 31 3b 49 46 20 74 |m 'Frase|.81;IF t|
|00005e10| 65 78 74 6f 20 3d 20 6e | 70 72 6f 67 72 61 6d 61 |exto = n|programa|
|00005e20| 7c 7c 46 72 61 73 65 2e | 37 37 20 54 48 45 4e 20 |||Frase.|77 THEN |
|00005e30| 73 63 61 64 65 6e 61 20 | 3d 20 74 69 70 6f 27 20 |scadena |= tipo' |
|00005e40| 27 64 61 74 65 28 29 27 | 20 2d 20 27 54 49 4d 45 |'date()'| - 'TIME|
|00005e50| 28 29 27 3a 20 1b 5b 34 | 31 3b 33 32 3b 31 6d 27 |()': .[4|1;32;1m'|
|00005e60| 6e 70 72 6f 67 72 61 6d | 61 27 1b 5b 30 6d 20 27 |nprogram|a'.[0m '|
|00005e70| 46 72 61 73 65 2e 37 37 | 3b 49 46 20 4c 4f 47 4c |Frase.77|;IF LOGL|
|00005e80| 45 56 45 4c 20 3e 20 30 | 20 54 48 45 4e 20 43 61 |EVEL > 0| THEN Ca|
|00005e90| 6c 6c 20 44 45 43 49 52 | 28 73 63 61 64 65 6e 61 |ll DECIR|(scadena|
|00005ea0| 29 3b 49 46 20 4c 4f 47 | 4c 45 56 45 4c 20 3e 20 |);IF LOG|LEVEL > |
|00005eb0| 32 20 54 48 45 4e 20 43 | 41 4c 4c 20 57 72 69 74 |2 THEN C|ALL Writ|
|00005ec0| 65 46 69 6c 65 28 4c 4f | 47 2c 63 61 64 65 6e 61 |eFile(LO|G,cadena|
|00005ed0| 73 73 7c 7c 65 6e 74 65 | 72 2c 27 41 70 70 65 6e |ss||ente|r,'Appen|
|00005ee0| 64 27 29 3b 52 45 54 55 | 52 4e 3b 45 58 49 54 3b |d');RETU|RN;EXIT;|
|00005ef0| 41 52 47 55 4d 45 4e 54 | 4f 53 3a 3b 79 6f 71 75 |ARGUMENT|OS:;yoqu|
|00005f00| 69 65 72 61 20 3d 20 30 | 3b 64 69 61 20 3d 20 30 |iera = 0|;dia = 0|
|00005f10| 3b 6c 6c 61 6d 61 72 20 | 3d 20 30 3b 6e 6f 6c 6c |;llamar |= 0;noll|
|00005f20| 61 6d 61 72 20 3d 20 30 | 3b 6e 6f 69 6d 70 6f 72 |amar = 0|;noimpor|
|00005f30| 74 61 72 20 3d 20 30 3b | 69 6d 70 6f 72 74 61 72 |tar = 0;|importar|
|00005f40| 20 3d 20 30 3b 76 6d 69 | 61 6d 69 20 3d 20 30 3b | = 0;vmi|ami = 0;|
|00005f50| 44 6f 20 75 6e 74 69 6c | 20 79 6f 71 75 69 65 72 |Do until| yoquier|
|00005f60| 61 20 3d 20 31 3b 49 46 | 20 52 49 47 48 54 28 6c |a = 1;IF| RIGHT(l|
|00005f70| 6f 73 61 72 67 2c 31 29 | 20 3d 20 27 3f 27 3b 54 |osarg,1)| = '?';T|
|00005f80| 48 45 4e 20 44 4f 3b 4f | 50 54 49 4f 4e 53 20 70 |HEN DO;O|PTIONS p|
|00005f90| 72 6f 6d 70 74 20 27 27 | 3b 50 41 52 53 45 20 70 |rompt ''|;PARSE p|
|00005fa0| 75 6c 6c 20 6c 6f 73 61 | 72 67 3b 65 6e 64 3b 65 |ull losa|rg;end;e|
|00005fb0| 6c 65 20 3d 20 52 65 61 | 64 41 72 67 73 28 6c 6f |le = Rea|dArgs(lo|
|00005fc0| 73 61 72 67 2c 22 43 6f | 6e 6e 65 63 74 2f 53 2c |sarg,"Co|nnect/S,|
|00005fd0| 44 61 79 73 3d 44 69 61 | 73 2f 4b 2c 49 6d 70 6f |Days=Dia|s/K,Impo|
|00005fe0| 72 74 2f 53 2c 4e 6f 63 | 6f 6e 6e 65 63 74 3d 4e |rt/S,Noc|onnect=N|
|00005ff0| 43 2f 53 2c 4e 6f 69 6d | 70 6f 72 74 2f 53 2c 4e |C/S,Noim|port/S,N|
|00006000| 6f 4d 61 69 6c 2f 53 2c | 59 61 6d 2f 53 2c 4d 69 |oMail/S,|Yam/S,Mi|
|00006010| 61 6d 69 2f 53 22 2c 27 | 61 72 67 75 73 2e 27 29 |ami/S",'|argus.')|
|00006020| 3b 49 46 20 65 6c 65 20 | 7e 3d 20 30 20 54 48 45 |;IF ele |~= 0 THE|
|00006030| 4e 20 79 6f 71 75 69 65 | 72 61 20 3d 20 31 3b 49 |N yoquie|ra = 1;I|
|00006040| 46 20 65 6c 65 20 3d 20 | 30 20 26 20 52 49 47 48 |F ele = |0 & RIGH|
|00006050| 54 28 6c 6f 73 61 72 67 | 2c 31 29 20 7e 3d 20 27 |T(losarg|,1) ~= '|
|00006060| 3f 27 3b 54 48 45 4e 20 | 44 4f 3b 43 61 6c 6c 20 |?';THEN |DO;Call |
|00006070| 44 45 43 49 52 28 27 27 | 29 3b 43 61 6c 6c 20 44 |DECIR(''|);Call D|
|00006080| 45 43 49 52 28 27 55 73 | 61 67 65 3a 20 43 6f 6e |ECIR('Us|age: Con|
|00006090| 6e 65 63 74 2f 53 2c 44 | 61 79 73 3d 44 69 61 73 |nect/S,D|ays=Dias|
|000060a0| 2f 4b 2f 4e 2c 49 6d 70 | 6f 72 74 2f 53 2c 4e 6f |/K/N,Imp|ort/S,No|
|000060b0| 63 6f 6e 6e 65 63 74 3d | 4e 43 2f 53 2c 4e 6f 69 |connect=|NC/S,Noi|
|000060c0| 6d 70 6f 72 74 2f 53 2c | 4e 6f 4d 61 69 6c 2f 53 |mport/S,|NoMail/S|
|000060d0| 2c 59 61 6d 2f 53 2c 4d | 69 61 6d 69 2f 53 3a 20 |,Yam/S,M|iami/S: |
|000060e0| 27 29 3b 45 58 49 54 3b | 65 6e 64 3b 65 6e 64 3b |');EXIT;|end;end;|
|000060f0| 49 46 20 65 6c 65 20 3d | 20 30 20 54 48 45 4e 20 |IF ele =| 0 THEN |
|00006100| 43 41 4c 4c 20 65 72 72 | 6f 72 61 72 67 3b 49 46 |CALL err|orarg;IF|
|00006110| 20 61 72 67 75 73 2e 6e | 6f 63 6f 6e 6e 65 63 74 | argus.n|oconnect|
|00006120| 20 3d 20 31 20 26 20 61 | 72 67 75 73 2e 63 6f 6e | = 1 & a|rgus.con|
|00006130| 6e 65 63 74 20 3d 20 31 | 20 54 48 45 4e 20 43 41 |nect = 1| THEN CA|
|00006140| 4c 4c 20 65 72 72 6f 72 | 61 72 67 3b 49 46 20 61 |LL error|arg;IF a|
|00006150| 72 67 75 73 2e 69 6d 70 | 6f 72 74 20 3d 20 31 20 |rgus.imp|ort = 1 |
|00006160| 26 20 61 72 67 75 73 2e | 6e 6f 69 6d 70 6f 72 74 |& argus.|noimport|
|00006170| 20 3d 20 31 20 54 48 45 | 4e 20 43 41 4c 4c 20 65 | = 1 THE|N CALL e|
|00006180| 72 72 6f 72 61 72 67 3b | 64 69 61 73 20 3d 20 61 |rrorarg;|dias = a|
|00006190| 72 67 75 73 2e 64 61 79 | 73 3b 49 46 20 61 72 67 |rgus.day|s;IF arg|
|000061a0| 75 73 2e 79 61 6d 20 3d | 20 31 20 54 48 45 4e 20 |us.yam =| 1 THEN |
|000061b0| 76 79 61 6d 20 3d 20 31 | 3b 49 46 20 64 61 74 61 |vyam = 1|;IF data|
|000061c0| 74 79 70 65 28 61 72 67 | 75 73 2e 64 61 79 73 2c |type(arg|us.days,|
|000061d0| 27 6e 27 29 20 54 48 45 | 4e 20 64 69 61 20 3d 20 |'n') THE|N dia = |
|000061e0| 31 3b 49 46 20 61 72 67 | 75 73 2e 69 6d 70 6f 72 |1;IF arg|us.impor|
|000061f0| 74 20 3d 20 31 20 54 48 | 45 4e 20 69 6d 70 6f 72 |t = 1 TH|EN impor|
|00006200| 74 61 72 20 3d 20 31 3b | 49 46 20 61 72 67 75 73 |tar = 1;|IF argus|
|00006210| 2e 63 6f 6e 6e 65 63 74 | 20 3d 20 31 20 54 48 45 |.connect| = 1 THE|
|00006220| 4e 20 6c 6c 61 6d 61 72 | 20 3d 20 31 3b 49 46 20 |N llamar| = 1;IF |
|00006230| 61 72 67 75 73 2e 6e 6f | 63 6f 6e 6e 65 63 74 20 |argus.no|connect |
|00006240| 3d 20 31 20 54 48 45 4e | 20 6e 6f 6c 6c 61 6d 61 |= 1 THEN| nollama|
|00006250| 72 20 3d 20 31 3b 49 46 | 20 61 72 67 75 73 2e 6e |r = 1;IF| argus.n|
|00006260| 6f 69 6d 70 6f 72 74 20 | 3d 20 31 20 54 48 45 4e |oimport |= 1 THEN|
|00006270| 20 6e 6f 69 6d 70 6f 72 | 74 61 72 20 3d 20 31 0a | noimpor|tar = 1.|
|00006280| 49 46 20 61 72 67 75 73 | 2e 6d 69 61 6d 69 20 3d |IF argus|.miami =|
|00006290| 20 31 20 54 48 45 4e 20 | 76 6d 69 61 6d 69 20 3d | 1 THEN |vmiami =|
|000062a0| 20 31 3b 49 46 20 61 72 | 67 75 73 2e 4e 6f 4d 61 | 1;IF ar|gus.NoMa|
|000062b0| 69 6c 20 3d 20 31 20 54 | 48 45 4e 20 76 6e 6f 6d |il = 1 T|HEN vnom|
|000062c0| 61 69 6c 20 3d 20 31 3b | 52 45 54 55 52 4e 3b 45 |ail = 1;|RETURN;E|
|000062d0| 58 49 54 3b 43 4f 4e 46 | 49 47 55 52 41 3a 3b 43 |XIT;CONF|IGURA:;C|
|000062e0| 41 4c 4c 20 6f 70 65 6e | 28 27 6e 75 63 6f 27 2c |ALL open|('nuco',|
|000062f0| 27 53 3a 6e 65 77 4e 45 | 54 2e 63 66 67 27 2c 27 |'S:newNE|T.cfg','|
|00006300| 57 27 29 3b 43 41 4c 4c | 20 77 72 69 74 65 6c 6e |W');CALL| writeln|
|00006310| 28 27 6e 75 63 6f 27 2c | 27 3b 20 6e 65 77 4e 45 |('nuco',|'; newNE|
|00006320| 54 2e 63 66 67 20 27 46 | 72 61 73 65 2e 32 32 27 |T.cfg 'F|rase.22'|
|00006330| 20 6e 65 77 4e 45 54 20 | 31 2e 32 30 27 29 3b 43 | newNET |1.20');C|
|00006340| 41 4c 4c 20 77 72 69 74 | 65 6c 6e 28 27 6e 75 63 |ALL writ|eln('nuc|
|00006350| 6f 27 2c 46 72 61 73 65 | 2e 32 31 29 3b 43 41 4c |o',Frase|.21);CAL|
|00006360| 4c 20 77 72 69 74 65 6c | 6e 28 27 6e 75 63 6f 27 |L writel|n('nuco'|
|00006370| 2c 27 27 29 3b 70 61 73 | 61 20 3d 20 30 3b 49 46 |,'');pas|a = 0;IF|
|00006380| 20 45 58 49 53 54 53 28 | 27 73 3a 59 61 6d 4e 65 | EXISTS(|'s:YamNe|
|00006390| 74 2e 63 66 67 27 29 3b | 54 48 45 4e 20 44 4f 3b |t.cfg');|THEN DO;|
|000063a0| 43 41 4c 4c 20 43 4f 4e | 56 59 4e 43 46 47 3b 70 |CALL CON|VYNCFG;p|
|000063b0| 61 73 61 20 3d 20 31 3b | 65 6e 64 3b 75 6e 61 20 |asa = 1;|end;una |
|000063c0| 3d 20 72 71 74 45 61 73 | 79 52 65 71 28 46 72 61 |= rqtEas|yReq(Fra|
|000063d0| 73 65 2e 32 30 2c 27 5f | 4d 49 41 4d 49 7c 5f 41 |se.20,'_|MIAMI|_A|
|000063e0| 4d 49 54 43 50 20 54 49 | 54 4c 45 20 22 27 46 72 |MITCP TI|TLE "'Fr|
|000063f0| 61 73 65 2e 38 27 22 20 | 52 65 71 50 6f 73 20 43 |ase.8'" |ReqPos C|
|00006400| 45 4e 54 45 52 53 43 52 | 27 29 3b 49 46 20 75 6e |ENTERSCR|');IF un|
|00006410| 61 20 3d 20 30 20 54 48 | 45 4e 20 74 63 70 72 6f |a = 0 TH|EN tcpro|
|00006420| 67 20 3d 20 27 41 4d 49 | 54 43 50 27 3b 49 46 20 |g = 'AMI|TCP';IF |
|00006430| 75 6e 61 20 3d 20 31 20 | 54 48 45 4e 20 74 63 70 |una = 1 |THEN tcp|
|00006440| 72 6f 67 20 3d 20 27 4d | 49 41 4d 49 27 3b 43 41 |rog = 'M|IAMI';CA|
|00006450| 4c 4c 20 77 72 69 74 65 | 6c 6e 28 27 6e 75 63 6f |LL write|ln('nuco|
|00006460| 27 2c 27 54 43 50 52 4f | 47 20 27 74 63 70 72 6f |','TCPRO|G 'tcpro|
|00006470| 67 29 3b 49 46 20 74 63 | 70 72 6f 67 20 3d 20 27 |g);IF tc|prog = '|
|00006480| 41 4d 49 54 43 50 27 20 | 54 48 45 4e 20 43 41 4c |AMITCP' |THEN CAL|
|00006490| 4c 20 41 4d 49 53 43 52 | 49 3b 49 46 20 74 63 70 |L AMISCR|I;IF tcp|
|000064a0| 72 6f 67 20 3d 20 27 4d | 49 41 4d 49 27 3b 54 48 |rog = 'M|IAMI';TH|
|000064b0| 45 4e 20 44 4f 3b 64 6f | 73 61 20 3d 20 27 53 3a |EN DO;do|sa = 'S:|
|000064c0| 6e 65 77 4e 45 54 2e 6d | 69 61 6d 69 27 3b 43 41 |newNET.m|iami';CA|
|000064d0| 4c 4c 20 73 63 72 69 4d | 49 41 4d 49 3b 65 6e 64 |LL scriM|IAMI;end|
|000064e0| 3b 49 46 20 45 58 49 53 | 54 53 28 64 6f 73 61 29 |;IF EXIS|TS(dosa)|
|000064f0| 20 54 48 45 4e 20 41 44 | 44 52 45 53 53 20 43 4f | THEN AD|DRESS CO|
|00006500| 4d 4d 41 4e 44 28 27 70 | 72 6f 74 65 63 74 20 27 |MMAND('p|rotect '|
|00006510| 64 6f 73 61 27 20 2b 73 | 27 29 3b 49 46 20 7e 45 |dosa' +s|');IF ~E|
|00006520| 58 49 53 54 53 28 64 6f | 73 61 29 20 54 48 45 4e |XISTS(do|sa) THEN|
|00006530| 20 43 41 4c 4c 20 41 42 | 4f 52 54 43 4f 4e 46 3b | CALL AB|ORTCONF;|
|00006540| 43 41 4c 4c 20 77 72 69 | 74 65 6c 6e 28 27 6e 75 |CALL wri|teln('nu|
|00006550| 63 6f 27 2c 27 4f 4e 4c | 49 4e 45 20 27 64 6f 73 |co','ONL|INE 'dos|
|00006560| 61 29 3b 49 46 20 74 63 | 70 72 6f 67 20 3d 20 27 |a);IF tc|prog = '|
|00006570| 41 4d 49 54 43 50 27 3b | 54 48 45 4e 20 44 4f 3b |AMITCP';|THEN DO;|
|00006580| 43 41 4c 4c 20 43 55 45 | 4c 47 53 43 52 49 3b 49 |CALL CUE|LGSCRI;I|
|00006590| 46 20 45 58 49 53 54 53 | 28 63 6f 73 61 29 20 54 |F EXISTS|(cosa) T|
|000065a0| 48 45 4e 20 41 44 44 52 | 45 53 53 20 43 4f 4d 4d |HEN ADDR|ESS COMM|
|000065b0| 41 4e 44 28 27 70 72 6f | 74 65 63 74 20 27 63 6f |AND('pro|tect 'co|
|000065c0| 73 61 27 20 2b 73 27 29 | 3b 49 46 20 7e 45 58 49 |sa' +s')|;IF ~EXI|
|000065d0| 53 54 53 28 63 6f 73 61 | 29 20 54 48 45 4e 20 43 |STS(cosa|) THEN C|
|000065e0| 41 4c 4c 20 41 42 4f 52 | 54 43 4f 4e 46 3b 65 6e |ALL ABOR|TCONF;en|
|000065f0| 64 3b 49 46 20 74 63 70 | 72 6f 67 20 3d 20 27 4d |d;IF tcp|rog = 'M|
|00006600| 49 41 4d 49 27 20 54 48 | 45 4e 20 63 6f 73 61 20 |IAMI' TH|EN cosa |
|00006610| 3d 20 27 52 58 20 22 41 | 44 44 52 45 53 53 20 4d |= 'RX "A|DDRESS M|
|00006620| 49 41 4d 49 2e 31 28 4f | 46 46 4c 49 4e 45 29 22 |IAMI.1(O|FFLINE)"|
|00006630| 27 3b 43 41 4c 4c 20 77 | 72 69 74 65 6c 6e 28 27 |';CALL w|riteln('|
|00006640| 6e 75 63 6f 27 2c 27 4f | 46 46 4c 49 4e 45 20 27 |nuco','O|FFLINE '|
|00006650| 63 6f 73 61 29 3b 65 6d | 20 3d 20 67 65 74 76 61 |cosa);em| = getva|
|00006660| 72 28 27 75 73 65 72 27 | 29 7c 7c 67 65 74 76 61 |r('user'|)||getva|
|00006670| 72 28 27 64 6f 6d 61 69 | 6e 6e 61 6d 65 27 29 3b |r('domai|nname');|
|00006680| 49 46 20 7e 6d 61 74 63 | 68 70 61 74 74 65 72 6e |IF ~matc|hpattern|
|00006690| 28 27 23 3f 40 23 3f 27 | 2c 65 6d 29 20 54 48 45 |('#?@#?'|,em) THE|
|000066a0| 4e 20 65 6d 20 3d 20 27 | 40 27 3b 65 6d 61 69 6c |N em = '|@';email|
|000066b0| 20 3d 20 52 71 74 53 74 | 72 69 6e 67 52 65 71 28 | = RqtSt|ringReq(|
|000066c0| 46 72 61 73 65 2e 34 38 | 2c 65 6d 2c 27 54 69 74 |Frase.48|,em,'Tit|
|000066d0| 6c 65 20 22 27 46 72 61 | 73 65 2e 38 27 22 20 52 |le "'Fra|se.8'" R|
|000066e0| 65 71 50 6f 73 20 43 45 | 4e 54 45 52 53 43 52 27 |eqPos CE|NTERSCR'|
|000066f0| 29 3b 49 46 20 4d 61 74 | 63 68 50 61 74 74 65 72 |);IF Mat|chPatter|
|00006700| 6e 28 27 23 3f 20 23 3f | 27 2c 65 6d 61 69 6c 29 |n('#? #?|',email)|
|00006710| 20 54 48 45 4e 20 43 41 | 4c 4c 20 41 42 4f 52 54 | THEN CA|LL ABORT|
|00006720| 43 4f 4e 46 3b 43 41 4c | 4c 20 77 72 69 74 65 6c |CONF;CAL|L writel|
|00006730| 6e 28 27 6e 75 63 6f 27 | 2c 27 45 4d 41 49 4c 20 |n('nuco'|,'EMAIL |
|00006740| 27 65 6d 61 69 6c 29 3b | 47 4d 54 49 20 3d 20 52 |'email);|GMTI = R|
|00006750| 71 74 53 74 72 69 6e 67 | 52 65 71 28 46 72 61 73 |qtString|Req(Fras|
|00006760| 65 2e 38 32 2c 47 4d 54 | 49 2c 27 54 69 74 6c 65 |e.82,GMT|I,'Title|
|00006770| 20 22 27 46 72 61 73 65 | 2e 38 27 22 20 52 65 71 | "'Frase|.8'" Req|
|00006780| 50 6f 73 20 43 45 4e 54 | 45 52 53 43 52 27 29 3b |Pos CENT|ERSCR');|
|00006790| 49 46 20 6c 65 6e 67 74 | 68 28 47 4d 54 49 29 20 |IF lengt|h(GMTI) |
|000067a0| 7e 3d 20 35 20 54 48 45 | 4e 20 43 41 4c 4c 20 41 |~= 5 THE|N CALL A|
|000067b0| 42 4f 52 54 43 4f 4e 46 | 3b 43 41 4c 4c 20 77 72 |BORTCONF|;CALL wr|
|000067c0| 69 74 65 6c 6e 28 27 6e | 75 63 6f 27 2c 27 47 4d |iteln('n|uco','GM|
|000067d0| 54 20 27 47 4d 54 49 29 | 3b 70 6f 70 73 65 72 76 |T 'GMTI)|;popserv|
|000067e0| 20 3d 20 52 71 74 53 74 | 72 69 6e 67 52 65 71 28 | = RqtSt|ringReq(|
|000067f0| 46 72 61 73 65 2e 32 33 | 2c 22 6d 61 69 6c 2e 67 |Frase.23|,"mail.g|
|00006800| 65 6f 63 69 74 69 65 73 | 2e 63 6f 6d 22 2c 27 54 |eocities|.com",'T|
|00006810| 69 74 6c 65 20 22 27 46 | 72 61 73 65 2e 38 27 22 |itle "'F|rase.8'"|
|00006820| 20 52 65 71 50 6f 73 20 | 43 45 4e 54 45 52 53 43 | ReqPos |CENTERSC|
|00006830| 52 27 29 3b 49 46 20 70 | 6f 70 73 65 72 76 20 3d |R');IF p|opserv =|
|00006840| 20 27 27 20 54 48 45 4e | 20 43 41 4c 4c 20 41 42 | '' THEN| CALL AB|
|00006850| 4f 52 54 43 4f 4e 46 3b | 43 41 4c 4c 20 77 72 69 |ORTCONF;|CALL wri|
|00006860| 74 65 6c 6e 28 27 6e 75 | 63 6f 27 2c 27 50 4f 50 |teln('nu|co','POP|
|00006870| 53 45 52 56 45 52 20 27 | 70 6f 70 73 65 72 76 29 |SERVER '|popserv)|
|00006880| 3b 73 6d 74 70 73 65 72 | 76 20 3d 20 52 71 74 53 |;smtpser|v = RqtS|
|00006890| 74 72 69 6e 67 52 65 71 | 28 22 bf 53 65 72 76 69 |tringReq|(".Servi|
|000068a0| 64 6f 72 20 64 65 20 63 | 6f 72 72 65 6f 2d 65 20 |dor de c|orreo-e |
|000068b0| 53 4d 54 50 3f 22 2c 22 | 6d 61 69 6c 2e 67 65 6f |SMTP?","|mail.geo|
|000068c0| 63 69 74 69 65 73 2e 63 | 6f 6d 22 2c 27 54 69 74 |cities.c|om",'Tit|
|000068d0| 6c 65 20 22 27 46 72 61 | 73 65 2e 38 27 22 20 52 |le "'Fra|se.8'" R|
|000068e0| 65 71 50 6f 73 20 43 45 | 4e 54 45 52 53 43 52 27 |eqPos CE|NTERSCR'|
|000068f0| 29 3b 49 46 20 73 6d 74 | 70 73 65 72 76 20 3d 20 |);IF smt|pserv = |
|00006900| 27 27 20 54 48 45 4e 20 | 43 41 4c 4c 20 41 42 4f |'' THEN |CALL ABO|
|00006910| 52 54 43 4f 4e 46 3b 43 | 41 4c 4c 20 77 72 69 74 |RTCONF;C|ALL writ|
|00006920| 65 6c 6e 28 27 6e 75 63 | 6f 27 2c 27 53 4d 54 50 |eln('nuc|o','SMTP|
|00006930| 53 45 52 56 45 52 20 27 | 73 6d 74 70 73 65 72 76 |SERVER '|smtpserv|
|00006940| 29 3b 75 73 75 61 72 20 | 3d 20 27 6a 70 65 72 65 |);usuar |= 'jpere|
|00006950| 7a 27 3b 49 46 20 45 58 | 49 53 54 53 28 27 65 6e |z';IF EX|ISTS('en|
|00006960| 76 3a 75 73 65 72 27 29 | 20 54 48 45 4e 20 75 73 |v:user')| THEN us|
|00006970| 75 61 72 20 3d 20 47 65 | 74 56 61 72 28 22 75 73 |uar = Ge|tVar("us|
|00006980| 65 72 22 29 3b 75 73 65 | 72 69 64 20 3d 20 52 71 |er");use|rid = Rq|
|00006990| 74 53 74 72 69 6e 67 52 | 65 71 28 46 72 61 73 65 |tStringR|eq(Frase|
|000069a0| 2e 32 35 2c 75 73 75 61 | 72 2c 27 54 69 74 6c 65 |.25,usua|r,'Title|
|000069b0| 20 22 27 46 72 61 73 65 | 2e 38 27 22 20 52 65 71 | "'Frase|.8'" Req|
|000069c0| 50 6f 73 20 43 45 4e 54 | 45 52 53 43 52 27 29 3b |Pos CENT|ERSCR');|
|000069d0| 49 46 20 75 73 65 72 69 | 64 20 3d 20 27 27 20 54 |IF useri|d = '' T|
|000069e0| 48 45 4e 20 43 41 4c 4c | 20 41 42 4f 52 54 43 4f |HEN CALL| ABORTCO|
|000069f0| 4e 46 3b 43 41 4c 4c 20 | 77 72 69 74 65 6c 6e 28 |NF;CALL |writeln(|
|00006a00| 27 6e 75 63 6f 27 2c 27 | 55 53 45 52 49 44 20 27 |'nuco','|USERID '|
|00006a10| 75 73 65 72 69 64 29 3b | 70 61 73 73 75 20 3d 20 |userid);|passu = |
|00006a20| 27 27 3b 49 46 20 45 58 | 49 53 54 53 28 27 65 6e |'';IF EX|ISTS('en|
|00006a30| 76 3a 75 73 65 72 70 61 | 73 73 77 6f 72 64 27 29 |v:userpa|ssword')|
|00006a40| 20 54 48 45 4e 20 70 61 | 73 73 75 20 3d 20 47 65 | THEN pa|ssu = Ge|
|00006a50| 74 56 61 72 28 22 75 73 | 65 72 70 61 73 73 77 6f |tVar("us|erpasswo|
|00006a60| 72 64 22 29 3b 72 65 6f | 20 3d 20 30 3b 64 6f 20 |rd");reo| = 0;do |
|00006a70| 75 6e 74 69 6c 20 72 65 | 6f 20 3d 20 31 3b 75 73 |until re|o = 1;us|
|00006a80| 65 72 70 61 73 73 20 3d | 20 52 71 74 53 74 72 69 |erpass =| RqtStri|
|00006a90| 6e 67 52 65 71 28 46 72 | 61 73 65 2e 32 36 7c 7c |ngReq(Fr|ase.26|||
|00006aa0| 64 32 63 28 31 30 29 7c | 7c 46 72 61 73 65 2e 32 |d2c(10)|||Frase.2|
|00006ab0| 37 2c 70 61 73 73 75 2c | 27 54 69 74 6c 65 20 22 |7,passu,|'Title "|
|00006ac0| 27 46 72 61 73 65 2e 38 | 27 22 20 66 6c 61 67 73 |'Frase.8|'" flags|
|00006ad0| 20 22 48 49 47 48 4c 49 | 47 48 54 7c 43 45 4e 54 | "HIGHLI|GHT|CENT|
|00006ae0| 45 52 54 45 58 54 22 20 | 52 65 71 50 6f 73 20 43 |ERTEXT" |ReqPos C|
|00006af0| 45 4e 54 45 52 53 43 52 | 20 48 69 64 64 65 6e 27 |ENTERSCR| Hidden'|
|00006b00| 29 3b 49 46 20 75 73 65 | 72 70 61 73 73 20 3d 20 |);IF use|rpass = |
|00006b10| 30 20 54 48 45 4e 20 43 | 41 4c 4c 20 41 42 4f 52 |0 THEN C|ALL ABOR|
|00006b20| 54 43 4f 4e 46 3b 75 73 | 65 72 70 61 73 73 32 20 |TCONF;us|erpass2 |
|00006b30| 3d 20 52 71 74 53 74 72 | 69 6e 67 52 65 71 28 46 |= RqtStr|ingReq(F|
|00006b40| 72 61 73 65 2e 32 38 2c | 70 61 73 73 75 2c 27 54 |rase.28,|passu,'T|
|00006b50| 69 74 6c 65 20 22 27 46 | 72 61 73 65 2e 38 27 22 |itle "'F|rase.8'"|
|00006b60| 20 52 65 71 50 6f 73 20 | 43 45 4e 54 45 52 53 43 | ReqPos |CENTERSC|
|00006b70| 52 20 48 69 64 64 65 6e | 27 29 3b 49 46 20 75 73 |R Hidden|');IF us|
|00006b80| 65 72 70 61 73 73 20 7e | 3d 20 75 73 65 72 70 61 |erpass ~|= userpa|
|00006b90| 73 73 32 3b 54 48 45 4e | 20 44 4f 3b 72 65 73 64 |ss2;THEN| DO;resd|
|00006ba0| 20 3d 20 72 71 74 45 61 | 73 79 52 65 71 28 46 72 | = rqtEa|syReq(Fr|
|00006bb0| 61 73 65 2e 32 39 2c 46 | 72 61 73 65 2e 31 32 27 |ase.29,F|rase.12'|
|00006bc0| 20 54 69 74 6c 65 20 22 | 27 46 72 61 73 65 2e 38 | Title "|'Frase.8|
|00006bd0| 27 22 20 52 65 71 50 6f | 73 20 43 45 4e 54 45 52 |'" ReqPo|s CENTER|
|00006be0| 53 43 52 27 29 3b 49 46 | 20 72 65 73 64 20 3d 20 |SCR');IF| resd = |
|00006bf0| 30 20 54 48 45 4e 20 43 | 41 4c 4c 20 41 42 4f 52 |0 THEN C|ALL ABOR|
|00006c00| 54 43 4f 4e 46 3b 65 6e | 64 3b 49 46 20 75 73 65 |TCONF;en|d;IF use|
|00006c10| 72 70 61 73 73 20 3d 20 | 75 73 65 72 70 61 73 73 |rpass = |userpass|
|00006c20| 32 20 54 48 45 4e 20 72 | 65 6f 20 3d 20 31 3b 65 |2 THEN r|eo = 1;e|
|00006c30| 6e 64 3b 43 41 4c 4c 20 | 77 72 69 74 65 6c 6e 28 |nd;CALL |writeln(|
|00006c40| 27 6e 75 63 6f 27 2c 27 | 55 53 45 52 50 41 53 53 |'nuco','|USERPASS|
|00006c50| 20 27 75 73 65 72 70 61 | 73 73 29 3b 66 6d 61 69 | 'userpa|ss);fmai|
|00006c60| 6c 20 3d 20 52 71 74 45 | 61 73 79 52 65 71 28 46 |l = RqtE|asyReq(F|
|00006c70| 72 61 73 65 2e 33 30 2c | 27 5f 4d 61 69 6c 4d 61 |rase.30,|'_MailMa|
|00006c80| 6e 61 67 65 72 7c 5f 53 | 70 6f 74 7c 5f 54 68 6f |nager|_S|pot|_Tho|
|00006c90| 72 20 54 69 74 6c 65 20 | 22 27 46 72 61 73 65 2e |r Title |"'Frase.|
|00006ca0| 38 27 22 20 52 65 71 50 | 6f 73 20 43 45 4e 54 45 |8'" ReqP|os CENTE|
|00006cb0| 52 53 43 52 27 29 3b 49 | 46 20 66 6d 61 69 6c 20 |RSCR');I|F fmail |
|00006cc0| 3d 20 30 20 54 48 45 4e | 20 66 6d 61 69 6c 65 72 |= 0 THEN| fmailer|
|00006cd0| 20 3d 20 27 54 48 4f 52 | 27 3b 49 46 20 66 6d 61 | = 'THOR|';IF fma|
|00006ce0| 69 6c 20 3d 20 31 20 54 | 48 45 4e 20 66 6d 61 69 |il = 1 T|HEN fmai|
|00006cf0| 6c 65 72 20 3d 20 27 4d | 4d 27 3b 49 46 20 66 6d |ler = 'M|M';IF fm|
|00006d00| 61 69 6c 20 3d 20 32 20 | 54 48 45 4e 20 66 6d 61 |ail = 2 |THEN fma|
|00006d10| 69 6c 65 72 20 3d 20 27 | 53 50 4f 54 27 3b 43 41 |iler = '|SPOT';CA|
|00006d20| 4c 4c 20 77 72 69 74 65 | 6c 6e 28 27 6e 75 63 6f |LL write|ln('nuco|
|00006d30| 27 2c 27 46 4d 41 49 4c | 45 52 20 27 66 6d 61 69 |','FMAIL|ER 'fmai|
|00006d40| 6c 65 72 29 3b 49 46 20 | 66 6d 61 69 6c 65 72 20 |ler);IF |fmailer |
|00006d50| 3d 20 27 4d 4d 27 3b 54 | 48 45 4e 20 44 4f 3b 61 |= 'MM';T|HEN DO;a|
|00006d60| 75 69 6d 20 3d 20 70 72 | 65 67 75 6e 74 61 66 61 |uim = pr|eguntafa|
|00006d70| 63 69 6c 28 46 72 61 73 | 65 2e 33 31 2c 46 72 61 |cil(Fras|e.31,Fra|
|00006d80| 73 65 2e 33 32 29 3b 49 | 46 20 61 75 69 6d 20 3d |se.32);I|F auim =|
|00006d90| 20 31 3b 54 48 45 4e 20 | 44 4f 3b 61 75 74 6f 69 | 1;THEN |DO;autoi|
|00006da0| 6d 70 6f 72 74 61 72 20 | 3d 20 31 3b 43 41 4c 4c |mportar |= 1;CALL|
|00006db0| 20 77 72 69 74 65 6c 6e | 28 27 6e 75 63 6f 27 2c | writeln|('nuco',|
|00006dc0| 27 41 55 54 4f 49 4d 50 | 4f 52 54 27 29 3b 65 6e |'AUTOIMP|ORT');en|
|00006dd0| 64 3b 65 6e 64 3b 49 46 | 20 7e 45 58 49 53 54 53 |d;end;IF| ~EXISTS|
|00006de0| 28 27 45 4e 56 3a 50 47 | 50 50 41 53 53 27 29 3b |('ENV:PG|PPASS');|
|00006df0| 54 48 45 4e 20 44 4f 3b | 65 73 70 75 65 73 20 3d |THEN DO;|espues =|
|00006e00| 20 70 72 65 67 75 6e 74 | 61 66 61 63 69 6c 28 46 | pregunt|afacil(F|
|00006e10| 72 61 73 65 2e 33 31 2c | 46 72 61 73 65 2e 33 33 |rase.31,|Frase.33|
|00006e20| 29 3b 49 46 20 65 73 70 | 75 65 73 20 3d 20 31 3b |);IF esp|ues = 1;|
|00006e30| 54 48 45 4e 20 44 4f 3b | 70 67 70 61 20 3d 20 70 |THEN DO;|pgpa = p|
|00006e40| 72 65 67 75 6e 74 61 6f | 63 75 6c 74 61 28 46 72 |reguntao|culta(Fr|
|00006e50| 61 73 65 2e 33 34 29 3b | 43 41 4c 4c 20 53 65 74 |ase.34);|CALL Set|
|00006e60| 56 61 72 28 22 50 47 50 | 50 41 53 53 22 2c 70 67 |Var("PGP|PASS",pg|
|00006e70| 70 61 29 3b 41 44 44 52 | 45 53 53 20 43 4f 4d 4d |pa);ADDR|ESS COMM|
|00006e80| 41 4e 44 28 27 63 6f 70 | 79 20 3e 4e 49 4c 3a 20 |AND('cop|y >NIL: |
|00006e90| 45 4e 56 3a 50 47 50 50 | 41 53 53 20 45 4e 56 41 |ENV:PGPP|ASS ENVA|
|00006ea0| 52 43 3a 20 43 4c 4f 4e | 45 27 29 3b 65 6e 64 3b |RC: CLON|E');end;|
|00006eb0| 65 6e 64 3b 61 75 6c 6c | 61 20 3d 20 70 72 65 67 |end;aull|a = preg|
|00006ec0| 75 6e 74 61 66 61 63 69 | 6c 28 46 72 61 73 65 2e |untafaci|l(Frase.|
|00006ed0| 33 35 2c 46 72 61 73 65 | 2e 33 36 29 3b 49 46 20 |35,Frase|.36);IF |
|00006ee0| 61 75 6c 6c 61 20 3d 20 | 30 20 54 48 45 4e 20 61 |aulla = |0 THEN a|
|00006ef0| 75 74 6f 6c 6c 61 6d 61 | 72 20 3d 20 30 3b 49 46 |utollama|r = 0;IF|
|00006f00| 20 61 75 6c 6c 61 20 3d | 20 31 3b 54 48 45 4e 20 | aulla =| 1;THEN |
|00006f10| 44 4f 3b 61 75 74 6f 6c | 6c 61 6d 61 72 20 3d 20 |DO;autol|lamar = |
|00006f20| 31 3b 43 41 4c 4c 20 77 | 72 69 74 65 6c 6e 28 27 |1;CALL w|riteln('|
|00006f30| 6e 75 63 6f 27 2c 27 41 | 55 54 4f 43 41 4c 4c 27 |nuco','A|UTOCALL'|
|00006f40| 29 3b 65 6e 64 3b 49 46 | 20 70 61 73 61 20 3d 20 |);end;IF| pasa = |
|00006f50| 30 3b 54 48 45 4e 20 44 | 4f 3b 49 4e 42 4f 55 4e |0;THEN D|O;INBOUN|
|00006f60| 44 20 3d 20 50 72 65 67 | 75 6e 74 61 64 69 72 28 |D = Preg|untadir(|
|00006f70| 46 72 61 73 65 2e 34 32 | 2c 27 49 4e 3a 27 29 3b |Frase.42|,'IN:');|
|00006f80| 4f 55 54 42 4f 55 4e 44 | 20 3d 20 70 72 65 67 75 |OUTBOUND| = pregu|
|00006f90| 6e 74 61 64 69 72 28 46 | 72 61 73 65 2e 34 33 2c |ntadir(F|rase.43,|
|00006fa0| 27 4f 55 54 3a 27 29 3b | 54 45 4d 50 20 3d 20 70 |'OUT:');|TEMP = p|
|00006fb0| 72 65 67 75 6e 74 61 64 | 69 72 28 46 72 61 73 65 |reguntad|ir(Frase|
|00006fc0| 2e 34 34 2c 27 54 3a 27 | 29 3b 4c 4f 47 20 3d 20 |.44,'T:'|);LOG = |
|00006fd0| 70 72 65 67 75 6e 74 61 | 66 69 6c 65 28 46 72 61 |pregunta|file(Fra|
|00006fe0| 73 65 2e 34 35 2c 27 4c | 4f 47 53 3a 6e 65 77 4e |se.45,'L|OGS:newN|
|00006ff0| 45 54 2e 6c 6f 67 27 29 | 3b 4c 4f 47 4c 45 56 45 |ET.log')|;LOGLEVE|
|00007000| 4c 20 3d 20 70 72 65 67 | 75 6e 74 61 66 61 63 69 |L = preg|untafaci|
|00007010| 6c 28 46 72 61 73 65 2e | 34 36 2c 46 72 61 73 65 |l(Frase.|46,Frase|
|00007020| 2e 34 37 29 3b 56 44 41 | 59 53 20 3d 20 70 72 65 |.47);VDA|YS = pre|
|00007030| 67 75 6e 74 61 6e 75 6d | 65 72 6f 28 46 72 61 73 |guntanum|ero(Fras|
|00007040| 65 2e 31 35 29 3b 43 41 | 4c 4c 20 77 72 69 74 65 |e.15);CA|LL write|
|00007050| 6c 6e 28 27 6e 75 63 6f | 27 2c 27 44 41 59 53 20 |ln('nuco|','DAYS |
|00007060| 27 44 41 59 53 29 3b 43 | 41 4c 4c 20 77 72 69 74 |'DAYS);C|ALL writ|
|00007070| 65 6c 6e 28 27 6e 75 63 | 6f 27 2c 27 4c 4f 47 20 |eln('nuc|o','LOG |
|00007080| 27 4c 4f 47 29 3b 43 41 | 4c 4c 20 77 72 69 74 65 |'LOG);CA|LL write|
|00007090| 6c 6e 28 27 6e 75 63 6f | 27 2c 27 4c 4f 47 4c 45 |ln('nuco|','LOGLE|
|000070a0| 56 45 4c 20 27 4c 4f 47 | 4c 45 56 45 4c 29 3b 43 |VEL 'LOG|LEVEL);C|
|000070b0| 41 4c 4c 20 77 72 69 74 | 65 6c 6e 28 27 6e 75 63 |ALL writ|eln('nuc|
|000070c0| 6f 27 2c 27 54 45 4d 50 | 20 27 74 65 6d 70 29 3b |o','TEMP| 'temp);|
|000070d0| 43 41 4c 4c 20 77 72 69 | 74 65 6c 6e 28 27 6e 75 |CALL wri|teln('nu|
|000070e0| 63 6f 27 2c 27 4f 55 54 | 42 4f 55 4e 44 20 27 4f |co','OUT|BOUND 'O|
|000070f0| 55 54 42 4f 55 4e 44 29 | 3b 43 41 4c 4c 20 77 72 |UTBOUND)|;CALL wr|
|00007100| 69 74 65 6c 6e 28 27 6e | 75 63 6f 27 2c 27 49 4e |iteln('n|uco','IN|
|00007110| 42 4f 55 4e 44 20 27 49 | 4e 42 4f 55 4e 44 29 3b |BOUND 'I|NBOUND);|
|00007120| 43 41 4c 4c 20 4e 6f 64 | 6f 73 43 75 61 6c 65 73 |CALL Nod|osCuales|
|00007130| 3b 65 6e 64 3b 43 41 4c | 4c 20 63 6c 6f 73 65 28 |;end;CAL|L close(|
|00007140| 27 6e 75 63 6f 27 29 3b | 52 45 54 55 52 4e 3b 45 |'nuco');|RETURN;E|
|00007150| 58 49 54 3b 73 63 72 69 | 4d 49 41 4d 49 3a 3b 43 |XIT;scri|MIAMI:;C|
|00007160| 41 4c 4c 20 77 72 69 74 | 65 46 69 6c 65 28 64 6f |ALL writ|eFile(do|
|00007170| 73 61 2c 27 72 75 6e 20 | 3e 4e 49 4c 3a 20 4d 69 |sa,'run |>NIL: Mi|
|00007180| 61 6d 69 3a 4d 69 61 6d | 69 27 65 6e 74 65 72 29 |ami:Miam|i'enter)|
|00007190| 3b 43 41 4c 4c 20 77 72 | 69 74 65 46 69 6c 65 28 |;CALL wr|iteFile(|
|000071a0| 64 6f 73 61 2c 27 77 61 | 69 74 66 6f 72 70 6f 72 |dosa,'wa|itforpor|
|000071b0| 74 20 4d 49 41 4d 49 2e | 31 27 65 6e 74 65 72 2c |t MIAMI.|1'enter,|
|000071c0| 27 41 70 70 65 6e 64 27 | 29 3b 43 41 4c 4c 20 77 |'Append'|);CALL w|
|000071d0| 72 69 74 65 46 69 6c 65 | 28 64 6f 73 61 2c 27 72 |riteFile|(dosa,'r|
|000071e0| 78 20 22 41 44 44 52 45 | 53 53 20 4d 49 41 4d 49 |x "ADDRE|SS MIAMI|
|000071f0| 2e 31 28 4f 4e 4c 49 4e | 45 29 22 27 65 6e 74 65 |.1(ONLIN|E)"'ente|
|00007200| 72 2c 27 41 70 70 65 6e | 64 27 29 3b 52 45 54 55 |r,'Appen|d');RETU|
|00007210| 52 4e 3b 45 58 49 54 3b | 4e 6f 64 6f 73 43 75 61 |RN;EXIT;|NodosCua|
|00007220| 6c 65 73 3a 3b 44 52 4f | 50 20 6e 6f 64 6d 65 74 |les:;DRO|P nodmet|
|00007230| 2e 3b 44 52 4f 50 20 6e | 6f 64 6d 61 69 2e 3b 44 |.;DROP n|odmai.;D|
|00007240| 52 4f 50 20 6e 6f 64 6e | 75 6d 2e 3b 44 52 4f 50 |ROP nodn|um.;DROP|
|00007250| 20 6e 6f 64 72 65 64 2e | 3b 6e 6f 64 6f 73 20 3d | nodred.|;nodos =|
|00007260| 20 31 3b 6e 75 6d 6e 6f | 64 20 3d 20 50 72 65 67 | 1;numno|d = Preg|
|00007270| 75 6e 74 61 63 61 64 65 | 6e 61 28 46 72 61 73 65 |untacade|na(Frase|
|00007280| 2e 31 39 2c 27 38 3a 37 | 36 35 2f 34 33 2e 32 27 |.19,'8:7|65/43.2'|
|00007290| 29 3b 49 46 20 6e 75 6d | 6f 64 20 3d 20 27 27 20 |);IF num|od = '' |
|000072a0| 54 48 45 4e 20 41 42 4f | 52 54 43 4f 4e 46 3b 50 |THEN ABO|RTCONF;P|
|000072b0| 41 52 53 45 20 76 61 72 | 20 6e 75 6d 6e 6f 64 20 |ARSE var| numnod |
|000072c0| 61 6e 27 3a 27 65 6e 27 | 2f 27 69 6e 27 2e 27 6f |an':'en'|/'in'.'o|
|000072d0| 6e 3b 6e 6f 64 6e 75 6d | 2e 6e 6f 64 6f 73 20 3d |n;nodnum|.nodos =|
|000072e0| 20 61 6e 27 2e 27 65 6e | 27 2e 27 69 6e 27 2e 27 | an'.'en|'.'in'.'|
|000072f0| 6f 6e 3b 72 65 64 6e 6f | 64 20 3d 20 50 72 65 67 |on;redno|d = Preg|
|00007300| 75 6e 74 61 63 61 64 65 | 6e 61 28 46 72 61 73 65 |untacade|na(Frase|
|00007310| 2e 31 36 27 20 27 6e 6f | 64 6e 75 6d 2e 6e 6f 64 |.16' 'no|dnum.nod|
|00007320| 6f 73 27 3f 27 2c 27 27 | 29 3b 49 46 20 72 65 64 |os'?',''|);IF red|
|00007330| 6e 6f 64 20 3d 20 27 27 | 20 54 48 45 4e 20 41 42 |nod = ''| THEN AB|
|00007340| 4f 52 54 43 4f 4e 46 3b | 6e 6f 64 72 65 64 2e 6e |ORTCONF;|nodred.n|
|00007350| 6f 64 6f 73 20 3d 20 72 | 65 64 6e 6f 64 3b 6d 61 |odos = r|ednod;ma|
|00007360| 69 6e 6f 64 20 3d 20 70 | 72 65 67 75 6e 74 61 63 |inod = p|reguntac|
|00007370| 61 64 65 6e 61 28 46 72 | 61 73 65 2e 31 38 27 20 |adena(Fr|ase.18' |
|00007380| 27 6e 6f 64 6e 75 6d 2e | 6e 6f 64 6f 73 27 3f 27 |'nodnum.|nodos'?'|
|00007390| 2c 27 27 29 3b 49 46 20 | 6d 61 69 6e 6f 64 20 3d |,'');IF |mainod =|
|000073a0| 20 27 27 20 54 48 45 4e | 20 41 42 4f 52 54 43 4f | '' THEN| ABORTCO|
|000073b0| 4e 46 3b 6e 6f 64 6d 61 | 69 2e 6e 6f 64 6f 73 20 |NF;nodma|i.nodos |
|000073c0| 3d 20 6d 61 69 6e 6f 64 | 3b 6d 65 74 6e 6f 64 20 |= mainod|;metnod |
|000073d0| 3d 20 70 72 65 67 75 6e | 74 61 66 61 63 69 6c 28 |= pregun|tafacil(|
|000073e0| 27 5f 4d 49 4d 45 7c 5f | 46 53 43 6f 64 65 7c 5f |'_MIME|_|FSCode|_|
|000073f0| 55 55 65 6e 63 6f 64 65 | 7c 5f 53 65 63 72 65 74 |UUencode||_Secret|
|00007400| 20 50 47 50 7c 5f 50 75 | 62 6c 69 63 20 50 47 50 | PGP|_Pu|blic PGP|
|00007410| 27 2c 46 72 61 73 65 2e | 33 39 29 3b 49 46 20 6d |',Frase.|39);IF m|
|00007420| 65 74 6e 6f 64 20 3d 20 | 30 20 54 48 45 4e 20 6e |etnod = |0 THEN n|
|00007430| 6f 64 6d 65 74 2e 6e 6f | 64 6f 73 20 3d 20 27 50 |odmet.no|dos = 'P|
|00007440| 47 50 27 3b 49 46 20 6d | 65 74 6e 6f 64 20 3d 20 |GP';IF m|etnod = |
|00007450| 31 20 54 48 45 4e 20 6e | 6f 64 6d 65 74 2e 6e 6f |1 THEN n|odmet.no|
|00007460| 64 6f 73 20 3d 20 27 4d | 49 4d 45 27 3b 49 46 20 |dos = 'M|IME';IF |
|00007470| 6d 65 74 6e 6f 64 20 3d | 20 32 20 54 48 45 4e 20 |metnod =| 2 THEN |
|00007480| 6e 6f 64 6d 65 74 2e 6e | 6f 64 6f 73 20 3d 20 27 |nodmet.n|odos = '|
|00007490| 46 53 43 4f 44 45 27 3b | 49 46 20 6d 65 74 6e 6f |FSCODE';|IF metno|
|000074a0| 64 20 3d 20 33 20 54 48 | 45 4e 20 6e 6f 64 6d 65 |d = 3 TH|EN nodme|
|000074b0| 74 2e 6e 6f 64 6f 73 20 | 3d 20 27 58 2d 55 55 45 |t.nodos |= 'X-UUE|
|000074c0| 27 3b 49 46 20 6d 65 74 | 6e 6f 64 20 3d 20 34 20 |';IF met|nod = 4 |
|000074d0| 54 48 45 4e 20 6e 6f 64 | 6d 65 74 2e 6e 6f 64 6f |THEN nod|met.nodo|
|000074e0| 73 20 3d 20 27 50 47 50 | 20 22 27 70 72 65 67 75 |s = 'PGP| "'pregu|
|000074f0| 6e 74 61 63 61 64 65 6e | 61 28 46 72 61 73 65 2e |ntacaden|a(Frase.|
|00007500| 31 37 27 20 27 6e 6f 64 | 6d 61 69 2e 6e 6f 64 6f |17' 'nod|mai.nodo|
|00007510| 73 2c 27 27 29 27 22 27 | 3b 70 6f 72 6f 20 3d 20 |s,'')'"'|;poro = |
|00007520| 30 3b 44 6f 20 75 6e 74 | 69 6c 20 70 6f 72 6f 20 |0;Do unt|il poro |
|00007530| 3d 20 31 3b 73 69 20 3d | 20 50 72 65 67 75 6e 74 |= 1;si =| Pregunt|
|00007540| 61 66 61 63 69 6c 28 46 | 72 61 73 65 2e 34 30 2c |afacil(F|rase.40,|
|00007550| 46 72 61 73 65 2e 34 31 | 29 3b 49 46 20 73 69 20 |Frase.41|);IF si |
|00007560| 3d 20 30 20 54 48 45 4e | 20 70 6f 72 6f 20 3d 20 |= 0 THEN| poro = |
|00007570| 31 3b 49 46 20 73 69 20 | 3d 20 31 3b 54 48 45 4e |1;IF si |= 1;THEN|
|00007580| 20 44 4f 3b 6e 6f 64 6f | 73 20 3d 20 6e 6f 64 6f | DO;nodo|s = nodo|
|00007590| 73 20 2b 20 31 3b 6e 75 | 6d 6e 6f 64 20 3d 20 50 |s + 1;nu|mnod = P|
|000075a0| 72 65 67 75 6e 74 61 63 | 61 64 65 6e 61 28 46 72 |reguntac|adena(Fr|
|000075b0| 61 73 65 2e 31 39 2c 27 | 27 29 3b 49 46 20 6e 75 |ase.19,'|');IF nu|
|000075c0| 6d 6f 64 20 3d 20 27 27 | 20 54 48 45 4e 20 41 42 |mod = ''| THEN AB|
|000075d0| 4f 52 54 43 4f 4e 46 3b | 50 41 52 53 45 20 76 61 |ORTCONF;|PARSE va|
|000075e0| 72 20 6e 75 6d 6e 6f 64 | 20 61 6e 27 3a 27 65 6e |r numnod| an':'en|
|000075f0| 27 2f 27 69 6e 27 2e 27 | 6f 6e 3b 6e 6f 64 6e 75 |'/'in'.'|on;nodnu|
|00007600| 6d 2e 6e 6f 64 6f 73 20 | 3d 20 61 6e 27 2e 27 65 |m.nodos |= an'.'e|
|00007610| 6e 27 2e 27 69 6e 27 2e | 27 6f 6e 3b 72 65 64 6e |n'.'in'.|'on;redn|
|00007620| 6f 64 20 3d 20 50 72 65 | 67 75 6e 74 61 63 61 64 |od = Pre|guntacad|
|00007630| 65 6e 61 28 46 72 61 73 | 65 2e 31 36 27 20 27 6e |ena(Fras|e.16' 'n|
|00007640| 6f 64 6e 75 6d 2e 6e 6f | 64 6f 73 27 3f 27 2c 27 |odnum.no|dos'?','|
|00007650| 27 29 3b 49 46 20 72 65 | 64 6e 6f 64 20 3d 20 27 |');IF re|dnod = '|
|00007660| 27 20 54 48 45 4e 20 41 | 42 4f 52 54 43 4f 4e 46 |' THEN A|BORTCONF|
|00007670| 3b 6e 6f 64 72 65 64 2e | 6e 6f 64 6f 73 20 3d 20 |;nodred.|nodos = |
|00007680| 72 65 64 6e 6f 64 3b 6d | 61 69 6e 6f 64 20 3d 20 |rednod;m|ainod = |
|00007690| 70 72 65 67 75 6e 74 61 | 63 61 64 65 6e 61 28 46 |pregunta|cadena(F|
|000076a0| 72 61 73 65 2e 31 38 27 | 20 27 6e 6f 64 6e 75 6d |rase.18'| 'nodnum|
|000076b0| 2e 6e 6f 64 6f 73 27 3f | 27 2c 27 27 29 3b 49 46 |.nodos'?|','');IF|
|000076c0| 20 6d 61 69 6e 6f 64 20 | 3d 20 27 27 20 54 48 45 | mainod |= '' THE|
|000076d0| 4e 20 41 42 4f 52 54 43 | 4f 4e 46 3b 6e 6f 64 6d |N ABORTC|ONF;nodm|
|000076e0| 61 69 2e 6e 6f 64 6f 73 | 20 3d 20 6d 61 69 6e 6f |ai.nodos| = maino|
|000076f0| 64 3b 6d 65 74 6e 6f 64 | 20 3d 20 70 72 65 67 75 |d;metnod| = pregu|
|00007700| 6e 74 61 66 61 63 69 6c | 28 27 5f 4d 49 4d 45 7c |ntafacil|('_MIME||
|00007710| 5f 46 53 43 6f 64 65 7c | 5f 55 55 65 6e 63 6f 64 |_FSCode||_UUencod|
|00007720| 65 7c 5f 53 65 63 72 65 | 74 20 50 47 50 7c 5f 50 |e|_Secre|t PGP|_P|
|00007730| 75 62 6c 69 63 20 50 47 | 50 27 2c 46 72 61 73 65 |ublic PG|P',Frase|
|00007740| 2e 33 39 29 3b 49 46 20 | 6d 65 74 6e 6f 64 20 3d |.39);IF |metnod =|
|00007750| 20 30 20 54 48 45 4e 20 | 6e 6f 64 6d 65 74 2e 6e | 0 THEN |nodmet.n|
|00007760| 6f 64 6f 73 20 3d 20 27 | 50 47 50 27 3b 49 46 20 |odos = '|PGP';IF |
|00007770| 6d 65 74 6e 6f 64 20 3d | 20 31 20 54 48 45 4e 20 |metnod =| 1 THEN |
|00007780| 6e 6f 64 6d 65 74 2e 6e | 6f 64 6f 73 20 3d 20 27 |nodmet.n|odos = '|
|00007790| 4d 49 4d 45 27 3b 49 46 | 20 6d 65 74 6e 6f 64 20 |MIME';IF| metnod |
|000077a0| 3d 20 32 20 54 48 45 4e | 20 6e 6f 64 6d 65 74 2e |= 2 THEN| nodmet.|
|000077b0| 6e 6f 64 6f 73 20 3d 20 | 27 46 53 43 4f 44 45 27 |nodos = |'FSCODE'|
|000077c0| 3b 49 46 20 6d 65 74 6e | 6f 64 20 3d 20 33 20 54 |;IF metn|od = 3 T|
|000077d0| 48 45 4e 20 6e 6f 64 6d | 65 74 2e 6e 6f 64 6f 73 |HEN nodm|et.nodos|
|000077e0| 20 3d 20 27 58 2d 55 55 | 45 27 3b 49 46 20 6d 65 | = 'X-UU|E';IF me|
|000077f0| 74 6e 6f 64 20 3d 20 34 | 20 54 48 45 4e 20 6e 6f |tnod = 4| THEN no|
|00007800| 64 6d 65 74 2e 6e 6f 64 | 6f 73 20 3d 20 27 50 47 |dmet.nod|os = 'PG|
|00007810| 50 20 22 27 70 72 65 67 | 75 6e 74 61 63 61 64 65 |P "'preg|untacade|
|00007820| 6e 61 28 46 72 61 73 65 | 2e 31 37 27 20 27 6e 6f |na(Frase|.17' 'no|
|00007830| 64 6d 61 69 2e 6e 6f 64 | 6f 73 2c 27 27 29 27 22 |dmai.nod|os,'')'"|
|00007840| 27 3b 65 6e 64 3b 65 6e | 64 3b 64 6f 20 6e 64 20 |';end;en|d;do nd |
|00007850| 3d 20 31 20 74 6f 20 6e | 6f 64 6f 73 3b 43 41 4c |= 1 to n|odos;CAL|
|00007860| 4c 20 77 72 69 74 65 6c | 6e 28 27 6e 75 63 6f 27 |L writel|n('nuco'|
|00007870| 2c 27 4e 4f 44 45 20 27 | 6e 6f 64 6e 75 6d 2e 6e |,'NODE '|nodnum.n|
|00007880| 64 27 20 27 6e 6f 64 6d | 61 69 2e 6e 64 27 20 27 |d' 'nodm|ai.nd' '|
|00007890| 6e 6f 64 72 65 64 2e 6e | 64 27 20 27 6e 6f 64 6d |nodred.n|d' 'nodm|
|000078a0| 65 74 2e 6e 64 29 3b 65 | 6e 64 3b 52 45 54 55 52 |et.nd);e|nd;RETUR|
|000078b0| 4e 3b 45 58 49 54 3b 50 | 72 65 67 75 6e 74 61 64 |N;EXIT;P|reguntad|
|000078c0| 69 72 3a 3b 50 41 52 53 | 45 20 41 52 47 20 65 73 |ir:;PARS|E ARG es|
|000078d0| 70 61 2c 64 69 72 3b 72 | 65 74 6f 72 20 3d 20 52 |pa,dir;r|etor = R|
|000078e0| 71 74 46 69 6c 65 52 65 | 71 28 2c 70 61 74 68 70 |qtFileRe|q(,pathp|
|000078f0| 61 72 74 28 64 69 72 29 | 2c 27 54 49 54 4c 45 20 |art(dir)|,'TITLE |
|00007900| 22 27 65 73 70 61 27 22 | 20 52 65 71 50 6f 73 20 |"'espa'"| ReqPos |
|00007910| 43 45 4e 54 45 52 53 43 | 52 20 46 4c 41 47 53 20 |CENTERSC|R FLAGS |
|00007920| 3d 20 4e 4f 46 49 4c 45 | 53 27 29 3b 49 46 20 72 |= NOFILE|S');IF r|
|00007930| 65 74 6f 72 20 3d 20 30 | 20 54 48 45 4e 20 43 41 |etor = 0| THEN CA|
|00007940| 4c 4c 20 41 42 4f 52 54 | 43 4f 4e 46 3b 52 45 54 |LL ABORT|CONF;RET|
|00007950| 55 52 4e 20 72 65 74 6f | 72 3b 45 58 49 54 3b 50 |URN reto|r;EXIT;P|
|00007960| 72 65 67 75 6e 74 61 66 | 69 6c 65 3a 3b 50 41 52 |reguntaf|ile:;PAR|
|00007970| 53 45 20 41 52 47 20 65 | 73 70 61 2c 66 69 6c 3b |SE ARG e|spa,fil;|
|00007980| 72 65 74 6f 72 20 3d 20 | 52 71 74 46 69 6c 65 52 |retor = |RqtFileR|
|00007990| 65 71 28 66 69 6c 65 70 | 61 72 74 28 66 69 6c 29 |eq(filep|art(fil)|
|000079a0| 2c 70 61 74 68 70 61 72 | 74 28 66 69 6c 29 2c 27 |,pathpar|t(fil),'|
|000079b0| 54 69 74 6c 65 20 22 27 | 65 73 70 61 27 22 20 52 |Title "'|espa'" R|
|000079c0| 65 71 50 6f 73 20 43 45 | 4e 54 45 52 53 43 52 27 |eqPos CE|NTERSCR'|
|000079d0| 29 3b 49 46 20 72 65 74 | 6f 72 20 3d 20 30 20 54 |);IF ret|or = 0 T|
|000079e0| 48 45 4e 20 43 41 4c 4c | 20 41 42 4f 52 54 43 4f |HEN CALL| ABORTCO|
|000079f0| 4e 46 3b 52 45 54 55 52 | 4e 20 72 65 74 6f 72 3b |NF;RETUR|N retor;|
|00007a00| 45 58 49 54 3b 50 72 65 | 67 75 6e 74 61 6f 63 75 |EXIT;Pre|guntaocu|
|00007a10| 6c 74 61 3a 3b 50 41 52 | 53 45 20 41 52 47 20 65 |lta:;PAR|SE ARG e|
|00007a20| 73 70 61 3b 70 61 72 61 | 74 20 3d 20 30 3b 64 6f |spa;para|t = 0;do|
|00007a30| 20 75 6e 74 69 6c 20 70 | 61 72 61 74 20 3d 20 31 | until p|arat = 1|
|00007a40| 3b 72 65 74 6f 72 20 3d | 20 52 71 74 53 74 72 69 |;retor =| RqtStri|
|00007a50| 6e 67 52 65 71 28 65 73 | 70 61 2c 2c 27 54 69 74 |ngReq(es|pa,,'Tit|
|00007a60| 6c 65 20 22 27 46 72 61 | 73 65 2e 38 27 22 20 52 |le "'Fra|se.8'" R|
|00007a70| 65 71 50 6f 73 20 43 45 | 4e 54 45 52 53 43 52 20 |eqPos CE|NTERSCR |
|00007a80| 48 69 64 64 65 6e 27 29 | 3b 49 46 20 72 65 74 6f |Hidden')|;IF reto|
|00007a90| 72 20 3d 20 30 20 54 48 | 45 4e 20 43 41 4c 4c 20 |r = 0 TH|EN CALL |
|00007aa0| 41 62 6f 72 74 43 4f 4e | 46 3b 72 65 74 6f 72 32 |AbortCON|F;retor2|
|00007ab0| 20 3d 20 52 71 74 53 74 | 72 69 6e 67 52 65 71 28 | = RqtSt|ringReq(|
|00007ac0| 65 73 70 61 2c 2c 27 54 | 69 74 6c 65 20 22 27 46 |espa,,'T|itle "'F|
|00007ad0| 72 61 73 65 2e 33 37 27 | 22 20 52 65 71 50 6f 73 |rase.37'|" ReqPos|
|00007ae0| 20 43 45 4e 54 45 52 53 | 43 52 20 48 69 64 64 65 | CENTERS|CR Hidde|
|00007af0| 6e 27 29 3b 49 46 20 72 | 65 74 6f 72 20 3d 20 72 |n');IF r|etor = r|
|00007b00| 65 74 6f 72 20 32 20 54 | 48 45 4e 20 70 61 72 61 |etor 2 T|HEN para|
|00007b10| 74 20 3d 20 31 3b 49 46 | 20 72 65 74 6f 72 20 7e |t = 1;IF| retor ~|
|00007b20| 3d 20 72 65 74 6f 72 32 | 3b 54 48 45 4e 20 44 4f |= retor2|;THEN DO|
|00007b30| 3b 72 65 73 64 20 3d 20 | 72 71 74 45 61 73 79 52 |;resd = |rqtEasyR|
|00007b40| 65 71 28 46 72 61 73 65 | 2e 33 38 2c 46 72 61 73 |eq(Frase|.38,Fras|
|00007b50| 65 2e 31 32 27 20 54 69 | 74 6c 65 20 22 27 46 72 |e.12' Ti|tle "'Fr|
|00007b60| 61 73 65 2e 38 27 22 20 | 52 65 71 50 6f 73 20 43 |ase.8'" |ReqPos C|
|00007b70| 45 4e 54 45 52 53 43 52 | 27 29 3b 49 46 20 72 65 |ENTERSCR|');IF re|
|00007b80| 73 64 20 3d 20 30 20 54 | 48 45 4e 20 43 41 4c 4c |sd = 0 T|HEN CALL|
|00007b90| 20 41 62 6f 72 74 43 6f | 6e 66 3b 65 6e 64 3b 65 | AbortCo|nf;end;e|
|00007ba0| 6e 64 3b 52 45 54 55 52 | 4e 20 72 65 74 6f 72 3b |nd;RETUR|N retor;|
|00007bb0| 45 58 49 54 3b 70 72 65 | 67 75 6e 74 61 66 61 63 |EXIT;pre|guntafac|
|00007bc0| 69 6c 3a 3b 50 41 52 53 | 45 20 41 52 47 20 65 73 |il:;PARS|E ARG es|
|00007bd0| 70 61 2c 70 61 3b 72 65 | 74 6f 72 20 3d 20 52 71 |pa,pa;re|tor = Rq|
|00007be0| 74 45 61 73 79 52 65 71 | 28 70 61 2c 65 73 70 61 |tEasyReq|(pa,espa|
|00007bf0| 27 20 54 69 74 6c 65 20 | 22 27 46 72 61 73 65 2e |' Title |"'Frase.|
|00007c00| 38 27 22 20 52 65 71 50 | 6f 73 20 43 45 4e 54 45 |8'" ReqP|os CENTE|
|00007c10| 52 53 43 52 27 29 3b 52 | 45 54 55 52 4e 20 72 65 |RSCR');R|ETURN re|
|00007c20| 74 6f 72 3b 45 58 49 54 | 3b 50 72 65 67 75 6e 74 |tor;EXIT|;Pregunt|
|00007c30| 61 63 61 64 65 6e 61 3a | 3b 50 41 52 53 45 20 41 |acadena:|;PARSE A|
|00007c40| 52 47 20 65 73 70 61 2c | 63 61 64 65 3b 72 65 74 |RG espa,|cade;ret|
|00007c50| 6f 72 20 3d 20 52 71 74 | 53 74 72 69 6e 67 52 65 |or = Rqt|StringRe|
|00007c60| 71 28 65 73 70 61 2c 63 | 61 64 65 2c 27 20 54 69 |q(espa,c|ade,' Ti|
|00007c70| 74 6c 65 20 22 27 46 72 | 61 73 65 2e 38 27 22 20 |tle "'Fr|ase.8'" |
|00007c80| 52 65 71 50 6f 73 20 43 | 45 4e 54 45 52 53 43 52 |ReqPos C|ENTERSCR|
|00007c90| 27 29 3b 49 46 20 72 65 | 74 6f 72 20 3d 20 27 27 |');IF re|tor = ''|
|00007ca0| 20 54 48 45 4e 20 41 42 | 4f 52 54 43 4f 4e 46 3b | THEN AB|ORTCONF;|
|00007cb0| 52 45 54 55 52 4e 20 72 | 65 74 6f 72 3b 45 58 49 |RETURN r|etor;EXI|
|00007cc0| 54 3b 50 72 65 67 75 6e | 74 61 6e 75 6d 65 72 6f |T;Pregun|tanumero|
|00007cd0| 3a 3b 50 41 52 53 45 20 | 41 52 47 20 65 73 70 61 |:;PARSE |ARG espa|
|00007ce0| 3b 72 65 74 6f 72 20 3d | 20 52 71 74 4c 6f 6e 67 |;retor =| RqtLong|
|00007cf0| 52 65 71 28 65 73 70 61 | 2c 31 34 27 20 54 69 74 |Req(espa|,14' Tit|
|00007d00| 6c 65 20 22 27 46 72 61 | 73 65 2e 38 27 22 20 52 |le "'Fra|se.8'" R|
|00007d10| 65 71 50 6f 73 20 43 45 | 4e 54 45 52 53 43 52 27 |eqPos CE|NTERSCR'|
|00007d20| 29 3b 49 46 20 72 65 74 | 6f 72 20 3d 20 27 27 20 |);IF ret|or = '' |
|00007d30| 54 48 45 4e 20 43 41 4c | 4c 20 41 42 4f 52 54 43 |THEN CAL|L ABORTC|
|00007d40| 4f 4e 46 3b 52 45 54 55 | 52 4e 20 72 65 74 6f 72 |ONF;RETU|RN retor|
|00007d50| 3b 45 58 49 54 3b 43 4f | 4e 56 59 4e 43 46 47 3a |;EXIT;CO|NVYNCFG:|
|00007d60| 3b 43 41 4c 4c 20 6f 70 | 65 6e 28 27 63 6f 63 75 |;CALL op|en('cocu|
|00007d70| 6e 27 2c 27 53 3a 59 61 | 6d 4e 65 74 2e 63 66 67 |n','S:Ya|mNet.cfg|
|00007d80| 27 2c 27 52 27 29 3b 6c | 61 20 3d 20 30 3b 6e 6f |','R');l|a = 0;no|
|00007d90| 64 6f 73 20 3d 20 30 3b | 73 75 62 73 20 3d 20 30 |dos = 0;|subs = 0|
|00007da0| 3b 64 6f 20 75 6e 74 69 | 6c 20 65 6f 66 28 27 63 |;do unti|l eof('c|
|00007db0| 6f 63 75 6e 27 29 3b 65 | 6f 65 20 3d 20 72 65 61 |ocun');e|oe = rea|
|00007dc0| 64 6c 6e 28 27 63 6f 63 | 75 6e 27 29 3b 49 46 20 |dln('coc|un');IF |
|00007dd0| 55 50 50 45 52 28 57 4f | 52 44 28 65 6f 65 2c 31 |UPPER(WO|RD(eoe,1|
|00007de0| 29 29 20 3d 20 27 4e 4f | 44 4f 27 3b 54 48 45 4e |)) = 'NO|DO';THEN|
|00007df0| 20 44 4f 3b 6e 6f 64 6f | 73 20 3d 20 6e 6f 64 6f | DO;nodo|s = nodo|
|00007e00| 73 20 2b 20 31 3b 6e 6f | 64 6e 75 6d 2e 6e 6f 64 |s + 1;no|dnum.nod|
|00007e10| 6f 73 20 3d 20 57 4f 52 | 44 28 65 6f 65 2c 33 29 |os = WOR|D(eoe,3)|
|00007e20| 3b 6e 6f 64 6d 61 69 2e | 6e 6f 64 6f 73 20 3d 20 |;nodmai.|nodos = |
|00007e30| 57 4f 52 44 28 65 6f 65 | 2c 34 29 3b 6e 6f 64 6d |WORD(eoe|,4);nodm|
|00007e40| 65 74 2e 6e 6f 64 6f 73 | 20 3d 20 55 50 50 45 52 |et.nodos| = UPPER|
|00007e50| 28 53 55 42 57 4f 52 44 | 28 65 6f 65 2c 35 29 29 |(SUBWORD|(eoe,5))|
|00007e60| 3b 49 46 20 55 50 50 45 | 52 28 6e 6f 64 6d 65 74 |;IF UPPE|R(nodmet|
|00007e70| 2e 6e 6f 64 6f 73 29 20 | 3d 20 27 55 55 49 4e 27 |.nodos) |= 'UUIN'|
|00007e80| 20 54 48 45 4e 20 6e 6f | 64 6d 65 74 2e 6e 6f 64 | THEN no|dmet.nod|
|00007e90| 6f 73 20 3d 20 27 58 2d | 55 55 45 27 3b 65 6e 64 |os = 'X-|UUE';end|
|00007ea0| 3b 49 46 20 55 50 50 45 | 52 28 57 4f 52 44 28 65 |;IF UPPE|R(WORD(e|
|00007eb0| 6f 65 2c 31 29 29 20 3d | 20 27 53 55 42 5a 4f 4e |oe,1)) =| 'SUBZON|
|00007ec0| 41 27 3b 54 48 45 4e 20 | 44 4f 3b 73 75 62 73 20 |A';THEN |DO;subs |
|00007ed0| 3d 20 73 75 62 73 20 2b | 20 31 3b 73 75 62 7a 6f |= subs +| 1;subzo|
|00007ee0| 2e 73 75 62 73 20 3d 20 | 53 55 42 57 4f 52 44 28 |.subs = |SUBWORD(|
|00007ef0| 65 6f 65 2c 33 2c 32 29 | 3b 65 6e 64 3b 49 46 20 |eoe,3,2)|;end;IF |
|00007f00| 55 50 50 45 52 28 57 4f | 52 44 28 65 6f 65 2c 31 |UPPER(WO|RD(eoe,1|
|00007f10| 29 29 20 3d 20 27 49 4e | 42 4f 55 4e 44 27 20 54 |)) = 'IN|BOUND' T|
|00007f20| 48 45 4e 20 43 41 4c 4c | 20 77 72 69 74 65 6c 6e |HEN CALL| writeln|
|00007f30| 28 27 6e 75 63 6f 27 2c | 27 49 4e 42 4f 55 4e 44 |('nuco',|'INBOUND|
|00007f40| 20 27 53 55 42 57 4f 52 | 44 28 65 6f 65 2c 33 2c | 'SUBWOR|D(eoe,3,|
|00007f50| 31 30 29 29 3b 49 46 20 | 55 50 50 45 52 28 57 4f |10));IF |UPPER(WO|
|00007f60| 52 44 28 65 6f 65 2c 31 | 29 29 20 3d 20 27 4f 55 |RD(eoe,1|)) = 'OU|
|00007f70| 54 42 4f 55 4e 44 27 3b | 54 48 45 4e 20 44 4f 3b |TBOUND';|THEN DO;|
|00007f80| 43 41 4c 4c 20 77 72 69 | 74 65 6c 6e 28 27 6e 75 |CALL wri|teln('nu|
|00007f90| 63 6f 27 2c 27 4f 55 54 | 42 4f 55 4e 44 20 27 53 |co','OUT|BOUND 'S|
|00007fa0| 55 42 57 4f 52 44 28 65 | 6f 65 2c 33 2c 31 30 29 |UBWORD(e|oe,3,10)|
|00007fb0| 29 3b 6f 75 74 62 6f 75 | 6e 64 20 3d 20 57 4f 52 |);outbou|nd = WOR|
|00007fc0| 44 28 65 6f 65 2c 77 6f | 72 64 73 28 65 6f 65 29 |D(eoe,wo|rds(eoe)|
|00007fd0| 29 3b 65 6e 64 3b 49 46 | 20 55 50 50 45 52 28 57 |);end;IF| UPPER(W|
|00007fe0| 4f 52 44 28 65 6f 65 2c | 31 29 29 20 3d 20 27 4c |ORD(eoe,|1)) = 'L|
|00007ff0| 4f 47 27 3b 54 48 45 4e | 20 44 4f 3b 49 46 20 55 |OG';THEN| DO;IF U|
|00008000| 50 50 45 52 28 53 55 42 | 57 4f 52 44 28 65 6f 65 |PPER(SUB|WORD(eoe|
|00008010| 2c 33 29 29 20 3d 20 27 | 4c 4f 47 53 3a 59 41 4d |,3)) = '|LOGS:YAM|
|00008020| 4e 45 54 2e 4c 4f 47 27 | 20 54 48 45 4e 20 65 6f |NET.LOG'| THEN eo|
|00008030| 65 20 3d 20 27 4c 4f 47 | 20 3d 20 4c 6f 67 73 3a |e = 'LOG| = Logs:|
|00008040| 6e 65 77 4e 45 54 2e 6c | 6f 67 27 3b 43 41 4c 4c |newNET.l|og';CALL|
|00008050| 20 77 72 69 74 65 6c 6e | 28 27 6e 75 63 6f 27 2c | writeln|('nuco',|
|00008060| 27 4c 4f 47 20 27 53 55 | 42 57 4f 52 44 28 65 6f |'LOG 'SU|BWORD(eo|
|00008070| 65 2c 33 2c 31 30 29 29 | 3b 65 6e 64 3b 49 46 20 |e,3,10))|;end;IF |
|00008080| 55 50 50 45 52 28 57 4f | 52 44 28 65 6f 65 2c 31 |UPPER(WO|RD(eoe,1|
|00008090| 29 29 20 3d 20 27 54 45 | 4d 50 27 20 54 48 45 4e |)) = 'TE|MP' THEN|
|000080a0| 20 43 41 4c 4c 20 77 72 | 69 74 65 6c 6e 28 27 6e | CALL wr|iteln('n|
|000080b0| 75 63 6f 27 2c 27 54 45 | 4d 50 20 27 53 55 42 57 |uco','TE|MP 'SUBW|
|000080c0| 4f 52 44 28 65 6f 65 2c | 33 2c 31 30 29 29 3b 49 |ORD(eoe,|3,10));I|
|000080d0| 46 20 55 50 50 45 52 28 | 57 4f 52 44 28 65 6f 65 |F UPPER(|WORD(eoe|
|000080e0| 2c 31 29 29 20 3d 20 27 | 4c 4f 47 4c 45 56 45 4c |,1)) = '|LOGLEVEL|
|000080f0| 27 20 54 48 45 4e 20 43 | 41 4c 4c 20 77 72 69 74 |' THEN C|ALL writ|
|00008100| 65 6c 6e 28 27 6e 75 63 | 6f 27 2c 27 4c 4f 47 4c |eln('nuc|o','LOGL|
|00008110| 45 56 45 4c 20 27 53 55 | 42 57 4f 52 44 28 65 6f |EVEL 'SU|BWORD(eo|
|00008120| 65 2c 33 2c 31 30 29 29 | 3b 49 46 20 55 50 50 45 |e,3,10))|;IF UPPE|
|00008130| 52 28 57 4f 52 44 28 65 | 6f 65 2c 31 29 29 20 3d |R(WORD(e|oe,1)) =|
|00008140| 20 27 44 45 4c 45 54 45 | 27 20 54 48 45 4e 20 43 | 'DELETE|' THEN C|
|00008150| 41 4c 4c 20 77 72 69 74 | 65 6c 6e 28 27 6e 75 63 |ALL writ|eln('nuc|
|00008160| 6f 27 2c 27 44 41 59 53 | 20 27 53 55 42 57 4f 52 |o','DAYS| 'SUBWOR|
|00008170| 44 28 65 6f 65 2c 33 2c | 31 30 29 29 3b 65 6e 64 |D(eoe,3,|10));end|
|00008180| 3b 64 6f 20 6e 6f 6e 20 | 3d 20 31 20 74 6f 20 6e |;do non |= 1 to n|
|00008190| 6f 64 6f 73 3b 73 61 6c | 20 3d 20 30 3b 6e 6f 64 |odos;sal| = 0;nod|
|000081a0| 72 65 64 2e 6e 6f 6e 20 | 3d 20 27 27 3b 64 6f 20 |red.non |= '';do |
|000081b0| 73 61 65 20 3d 20 31 20 | 74 6f 20 73 75 62 73 3b |sae = 1 |to subs;|
|000081c0| 50 41 52 53 45 20 76 61 | 72 20 6e 6f 64 6e 75 6d |PARSE va|r nodnum|
|000081d0| 2e 6e 6f 6e 20 6e 75 27 | 2e 27 72 65 73 74 6f 3b |.non nu'|.'resto;|
|000081e0| 49 46 20 57 4f 52 44 28 | 73 75 62 7a 6f 2e 73 61 |IF WORD(|subzo.sa|
|000081f0| 65 2c 31 29 20 3d 20 6e | 75 3b 54 48 45 4e 20 44 |e,1) = n|u;THEN D|
|00008200| 4f 3b 6e 6f 64 72 65 64 | 2e 6e 6f 6e 20 3d 20 57 |O;nodred|.non = W|
|00008210| 4f 52 44 28 73 75 62 7a | 6f 2e 73 61 65 2c 32 29 |ORD(subz|o.sae,2)|
|00008220| 3b 73 61 6c 20 3d 20 31 | 3b 65 6e 64 3b 49 46 20 |;sal = 1|;end;IF |
|00008230| 73 61 6c 20 3d 20 31 20 | 54 48 45 4e 20 6c 65 61 |sal = 1 |THEN lea|
|00008240| 76 65 3b 65 6e 64 0a 49 | 46 20 6e 6f 64 72 65 64 |ve;end.I|F nodred|
|00008250| 2e 6e 6f 6e 20 3d 20 27 | 27 20 54 48 45 4e 20 6e |.non = '|' THEN n|
|00008260| 6f 64 72 65 64 2e 6e 6f | 6e 20 3d 20 50 72 65 67 |odred.no|n = Preg|
|00008270| 75 6e 74 61 63 61 64 65 | 6e 61 28 46 72 61 73 65 |untacade|na(Frase|
|00008280| 2e 31 36 27 20 27 6e 6f | 64 6e 75 6d 2e 6e 6f 6e |.16' 'no|dnum.non|
|00008290| 27 3f 27 2c 27 27 29 3b | 65 6e 64 3b 64 6f 20 6e |'?','');|end;do n|
|000082a0| 64 20 3d 20 31 20 74 6f | 20 6e 6f 64 6f 73 3b 43 |d = 1 to| nodos;C|
|000082b0| 41 4c 4c 20 77 72 69 74 | 65 6c 6e 28 27 6e 75 63 |ALL writ|eln('nuc|
|000082c0| 6f 27 2c 27 4e 4f 44 45 | 20 27 6e 6f 64 6e 75 6d |o','NODE| 'nodnum|
|000082d0| 2e 6e 64 27 20 27 6e 6f | 64 6d 61 69 2e 6e 64 27 |.nd' 'no|dmai.nd'|
|000082e0| 20 27 6e 6f 64 72 65 64 | 2e 6e 64 27 20 27 6e 6f | 'nodred|.nd' 'no|
|000082f0| 64 6d 65 74 2e 6e 64 29 | 3b 65 6e 64 3b 49 46 20 |dmet.nd)|;end;IF |
|00008300| 6e 6f 64 6f 73 20 3d 20 | 30 20 54 48 45 4e 20 43 |nodos = |0 THEN C|
|00008310| 41 4c 4c 20 4e 6f 64 6f | 73 43 75 61 6c 65 73 3b |ALL Nodo|sCuales;|
|00008320| 43 41 4c 4c 20 63 6c 6f | 73 65 28 27 63 6f 63 75 |CALL clo|se('cocu|
|00008330| 6e 27 29 3b 52 45 54 55 | 52 4e 3b 45 58 49 54 3b |n');RETU|RN;EXIT;|
|00008340| 53 49 59 41 4d 3a 3b 49 | 46 20 73 68 6f 77 28 27 |SIYAM:;I|F show('|
|00008350| 70 27 2c 27 59 41 4d 27 | 29 3b 54 48 45 4e 20 44 |p','YAM'|);THEN D|
|00008360| 4f 3b 43 41 4c 4c 20 6d | 69 72 61 79 61 6d 69 6e |O;CALL m|irayamin|
|00008370| 63 6f 6d 69 6e 67 3b 65 | 6e 64 3b 49 46 20 7e 73 |coming;e|nd;IF ~s|
|00008380| 68 6f 77 28 27 70 27 2c | 27 59 41 4d 27 29 3b 54 |how('p',|'YAM');T|
|00008390| 48 45 4e 20 44 4f 3b 66 | 69 79 61 20 3d 20 61 64 |HEN DO;f|iya = ad|
|000083a0| 64 70 61 72 74 28 74 65 | 6d 70 2c 27 74 65 6d 70 |dpart(te|mp,'temp|
|000083b0| 6f 72 79 61 6d 27 29 3b | 43 41 4c 4c 20 57 72 69 |oryam');|CALL Wri|
|000083c0| 74 65 66 69 6c 65 28 66 | 69 79 61 2c 27 53 74 61 |tefile(f|iya,'Sta|
|000083d0| 63 6b 20 31 32 30 30 30 | 27 65 6e 74 65 72 29 3b |ck 12000|'enter);|
|000083e0| 43 41 4c 4c 20 57 72 69 | 74 65 66 69 6c 65 28 66 |CALL Wri|tefile(f|
|000083f0| 69 79 61 2c 27 52 75 6e | 20 3e 4e 49 4c 3a 20 59 |iya,'Run| >NIL: Y|
|00008400| 41 4d 3a 59 41 4d 27 65 | 6e 74 65 72 2c 27 41 70 |AM:YAM'e|nter,'Ap|
|00008410| 70 65 6e 64 27 29 3b 43 | 41 4c 4c 20 45 78 65 63 |pend');C|ALL Exec|
|00008420| 75 74 65 28 27 45 78 65 | 63 75 74 65 20 27 66 69 |ute('Exe|cute 'fi|
|00008430| 79 61 29 3b 43 41 4c 4c | 20 45 78 65 63 75 74 65 |ya);CALL| Execute|
|00008440| 28 27 44 65 6c 65 74 65 | 20 3e 4e 49 4c 3a 20 27 |('Delete| >NIL: '|
|00008450| 66 69 79 61 29 3b 41 44 | 44 52 45 53 53 20 43 4f |fiya);AD|DRESS CO|
|00008460| 4d 4d 41 4e 44 28 27 77 | 61 69 74 66 6f 72 70 6f |MMAND('w|aitforpo|
|00008470| 72 74 20 59 41 4d 27 29 | 3b 43 41 4c 4c 20 6d 69 |rt YAM')|;CALL mi|
|00008480| 72 61 79 61 6d 69 6e 63 | 6f 6d 69 6e 67 3b 65 6e |rayaminc|oming;en|
|00008490| 64 3b 52 45 54 55 52 4e | 3b 45 58 49 54 3b 6d 69 |d;RETURN|;EXIT;mi|
|000084a0| 72 61 79 61 6d 69 6e 63 | 6f 6d 69 6e 67 3a 3b 79 |rayaminc|oming:;y|
|000084b0| 61 6d 61 63 74 20 3d 20 | 30 3b 49 46 20 7e 53 68 |amact = |0;IF ~Sh|
|000084c0| 6f 77 28 27 70 27 2c 27 | 59 41 4d 27 29 20 54 48 |ow('p','|YAM') TH|
|000084d0| 45 4e 20 43 41 4c 4c 20 | 45 78 65 63 75 74 65 28 |EN CALL |Execute(|
|000084e0| 27 57 61 69 74 20 36 27 | 29 3b 49 46 20 53 68 6f |'Wait 6'|);IF Sho|
|000084f0| 77 28 27 70 27 2c 27 59 | 41 4d 27 29 3b 54 48 45 |w('p','Y|AM');THE|
|00008500| 4e 20 44 4f 3b 41 44 44 | 52 45 53 53 20 59 41 4d |N DO;ADD|RESS YAM|
|00008510| 3b 73 65 74 66 6f 6c 64 | 65 72 20 30 3b 47 65 74 |;setfold|er 0;Get|
|00008520| 46 6f 6c 64 65 72 49 6e | 66 6f 20 4d 41 58 3b 64 |FolderIn|fo MAX;d|
|00008530| 61 74 6f 73 20 3d 20 52 | 45 53 55 4c 54 3b 64 6f |atos = R|ESULT;do|
|00008540| 20 6c 75 64 61 74 6f 73 | 20 3d 20 30 20 74 6f 20 | ludatos| = 0 to |
|00008550| 64 61 74 6f 73 2d 31 3b | 73 65 74 6d 61 69 6c 20 |datos-1;|setmail |
|00008560| 6c 75 64 61 74 6f 73 3b | 47 65 74 4d 61 69 6c 49 |ludatos;|GetMailI|
|00008570| 6e 66 6f 20 53 55 42 3b | 6c 75 73 75 62 6a 65 20 |nfo SUB;|lusubje |
|00008580| 3d 20 52 45 53 55 4c 54 | 3b 49 46 20 4c 45 46 54 |= RESULT|;IF LEFT|
|00008590| 28 6c 75 73 75 62 6a 65 | 2c 32 29 20 3d 20 27 6e |(lusubje|,2) = 'n|
|000085a0| 4e 27 3b 54 48 45 4e 20 | 44 4f 3b 47 65 74 4d 61 |N';THEN |DO;GetMa|
|000085b0| 69 6c 49 6e 66 6f 20 46 | 49 4c 3b 66 69 63 68 65 |ilInfo F|IL;fiche|
|000085c0| 6c 75 20 3d 20 52 45 53 | 55 4c 54 3b 47 65 74 4d |lu = RES|ULT;GetM|
|000085d0| 61 69 6c 49 6e 66 6f 20 | 46 52 4f 3b 76 69 65 6e |ailInfo |FRO;vien|
|000085e0| 65 64 20 3d 20 52 45 53 | 55 4c 54 3b 69 66 20 6d |ed = RES|ULT;if m|
|000085f0| 61 74 63 68 70 61 74 74 | 65 72 6e 28 27 23 3f 3c |atchpatt|ern('#?<|
|00008600| 23 3f 27 2c 76 69 65 6e | 65 64 29 20 74 68 65 6e |#?',vien|ed) then|
|00008610| 20 70 61 72 73 65 20 76 | 61 72 20 76 69 65 6e 65 | parse v|ar viene|
|00008620| 64 20 65 6f 6e 64 65 27 | 3c 27 76 69 65 6e 65 64 |d eonde'|<'viened|
|00008630| 65 27 3e 27 73 65 61 3b | 65 6c 73 65 20 76 69 65 |e'>'sea;|else vie|
|00008640| 6e 65 64 65 20 3d 20 76 | 69 65 6e 65 64 3b 49 46 |nede = v|iened;IF|
|00008650| 20 45 58 49 53 54 53 28 | 66 69 63 68 65 6c 75 29 | EXISTS(|fichelu)|
|00008660| 3b 54 48 45 4e 20 44 4f | 3b 43 41 4c 4c 20 4e 4e |;THEN DO|;CALL NN|
|00008670| 4f 4d 42 52 55 54 3b 66 | 69 63 68 65 79 6f 20 3d |OMBRUT;f|icheyo =|
|00008680| 20 61 64 64 70 61 72 74 | 28 6f 75 74 62 6f 75 6e | addpart|(outboun|
|00008690| 64 2c 27 4e 65 77 4e 65 | 74 27 29 27 2f 27 6e 6e |d,'NewNe|t')'/'nn|
|000086a0| 6f 6d 62 3b 49 46 20 4c | 45 46 54 28 73 61 6d 65 |omb;IF L|EFT(same|
|000086b0| 6c 6f 63 6b 28 70 61 74 | 68 70 61 72 74 28 66 69 |lock(pat|hpart(fi|
|000086c0| 63 68 65 6c 75 29 2c 6f | 75 74 62 6f 75 6e 64 29 |chelu),o|utbound)|
|000086d0| 2c 34 29 20 3d 20 27 53 | 41 4d 45 27 20 54 48 45 |,4) = 'S|AME' THE|
|000086e0| 4e 20 43 41 4c 4c 20 45 | 78 65 63 75 74 65 28 27 |N CALL E|xecute('|
|000086f0| 72 65 6e 61 6d 65 20 27 | 66 69 63 68 65 6c 75 27 |rename '|fichelu'|
|00008700| 20 27 66 69 63 68 65 79 | 6f 29 3b 45 4c 53 45 20 | 'fichey|o);ELSE |
|00008710| 44 4f 3b 41 44 44 52 45 | 53 53 20 43 4f 4d 4d 41 |DO;ADDRE|SS COMMA|
|00008720| 4e 44 28 27 63 6f 70 79 | 20 3e 4e 49 4c 3a 20 27 |ND('copy| >NIL: '|
|00008730| 66 69 63 68 65 6c 75 27 | 20 27 66 69 63 68 65 79 |fichelu'| 'fichey|
|00008740| 6f 29 3b 41 44 44 52 45 | 53 53 20 43 4f 4d 4d 41 |o);ADDRE|SS COMMA|
|00008750| 4e 44 28 27 64 65 6c 65 | 74 65 20 3e 4e 49 4c 3a |ND('dele|te >NIL:|
|00008760| 20 27 66 69 63 68 65 6c | 75 29 3b 79 61 6d 61 63 | 'fichel|u);yamac|
|00008770| 74 20 3d 20 31 3b 65 6e | 64 3b 43 41 4c 4c 20 27 |t = 1;en|d;CALL '|
|00008780| 64 6f 73 2f 46 69 6c 65 | 4e 6f 74 65 27 28 66 69 |dos/File|Note'(fi|
|00008790| 63 68 65 79 6f 2c 27 44 | 20 27 76 69 65 6e 65 64 |cheyo,'D| 'viened|
|000087a0| 65 27 20 27 53 55 42 57 | 4f 52 44 28 6c 75 73 75 |e' 'SUBW|ORD(lusu|
|000087b0| 62 6a 65 2c 32 29 29 3b | 43 61 6c 6c 20 54 65 78 |bje,2));|Call Tex|
|000087c0| 74 6f 28 46 72 61 73 65 | 2e 38 30 27 20 27 77 6f |to(Frase|.80' 'wo|
|000087d0| 72 64 28 6c 75 73 75 62 | 6a 65 2c 32 29 27 20 27 |rd(lusub|je,2)' '|
|000087e0| 46 72 61 73 65 2e 32 2c | 27 2e 27 29 3b 65 6e 64 |Frase.2,|'.');end|
|000087f0| 3b 65 6e 64 3b 65 6e 64 | 3b 65 6e 64 3b 49 46 20 |;end;end|;end;IF |
|00008800| 79 61 6d 61 63 74 20 3d | 20 31 3b 54 48 45 4e 20 |yamact =| 1;THEN |
|00008810| 44 4f 3b 49 46 20 73 68 | 6f 77 28 27 70 27 2c 27 |DO;IF sh|ow('p','|
|00008820| 59 41 4d 27 29 3b 54 48 | 45 4e 20 44 4f 3b 41 44 |YAM');TH|EN DO;AD|
|00008830| 44 52 45 53 53 20 59 41 | 4d 3b 73 65 74 66 6f 6c |DRESS YA|M;setfol|
|00008840| 64 65 72 20 30 3b 6d 61 | 69 6c 75 70 64 61 74 65 |der 0;ma|ilupdate|
|00008850| 3b 65 6e 64 3b 49 46 20 | 7e 73 68 6f 77 28 27 70 |;end;IF |~show('p|
|00008860| 27 2c 27 59 41 4d 27 29 | 20 54 48 45 4e 20 43 41 |','YAM')| THEN CA|
|00008870| 4c 4c 20 45 78 65 63 75 | 74 65 28 27 44 65 6c 65 |LL Execu|te('Dele|
|00008880| 74 65 20 3e 4e 49 4c 3a | 20 59 41 4d 3a 69 6e 63 |te >NIL:| YAM:inc|
|00008890| 6f 6d 69 6e 67 2f 2e 69 | 6e 64 65 78 27 29 3b 65 |oming/.i|ndex');e|
|000088a0| 6e 64 3b 52 45 54 55 52 | 4e 3b 45 58 49 54 3b 41 |nd;RETUR|N;EXIT;A|
|000088b0| 4d 49 53 43 52 49 3a 3b | 70 61 72 61 6c 20 3d 20 |MISCRI:;|paral = |
|000088c0| 30 3b 44 4f 20 55 4e 54 | 49 4c 20 70 61 72 61 6c |0;DO UNT|IL paral|
|000088d0| 20 3d 20 31 3b 66 69 6c | 65 6e 61 6d 65 20 3d 20 | = 1;fil|ename = |
|000088e0| 27 73 74 61 72 74 6e 65 | 74 27 3b 64 69 72 65 63 |'startne|t';direc|
|000088f0| 74 6f 72 79 20 3d 20 27 | 41 6d 69 74 63 70 3a 62 |tory = '|Amitcp:b|
|00008900| 69 6e 27 3b 4f 50 54 49 | 4f 4e 53 20 3d 20 27 74 |in';OPTI|ONS = 't|
|00008910| 69 74 6c 65 20 22 27 46 | 72 61 73 65 2e 31 34 27 |itle "'F|rase.14'|
|00008920| 22 20 52 65 71 50 6f 73 | 20 43 45 4e 54 45 52 53 |" ReqPos| CENTERS|
|00008930| 43 52 27 3b 64 6f 73 61 | 20 3d 20 52 71 74 46 69 |CR';dosa| = RqtFi|
|00008940| 6c 65 52 65 71 28 66 69 | 6c 65 6e 61 6d 65 2c 64 |leReq(fi|lename,d|
|00008950| 69 72 65 63 74 6f 72 79 | 2c 4f 50 54 49 4f 4e 53 |irectory|,OPTIONS|
|00008960| 29 3b 72 65 73 64 20 3d | 20 30 3b 49 46 20 64 6f |);resd =| 0;IF do|
|00008970| 73 61 20 3d 20 30 20 7c | 20 64 6f 73 61 20 3d 20 |sa = 0 || dosa = |
|00008980| 27 27 20 7c 20 7e 45 58 | 49 53 54 53 28 64 6f 73 |'' | ~EX|ISTS(dos|
|00008990| 61 29 3b 54 48 45 4e 20 | 44 4f 3b 72 65 73 64 20 |a);THEN |DO;resd |
|000089a0| 3d 20 72 71 74 45 61 73 | 79 52 65 71 28 46 72 61 |= rqtEas|yReq(Fra|
|000089b0| 73 65 2e 31 31 2c 46 72 | 61 73 65 2e 31 32 27 20 |se.11,Fr|ase.12' |
|000089c0| 54 69 74 6c 65 20 22 27 | 46 72 61 73 65 2e 38 27 |Title "'|Frase.8'|
|000089d0| 22 20 52 65 71 50 6f 73 | 20 43 45 4e 54 45 52 53 |" ReqPos| CENTERS|
|000089e0| 43 52 27 29 3b 49 46 20 | 72 65 73 64 20 3d 20 30 |CR');IF |resd = 0|
|000089f0| 20 54 48 45 4e 20 43 41 | 4c 4c 20 41 42 4f 52 54 | THEN CA|LL ABORT|
|00008a00| 43 4f 4e 46 3b 65 6e 64 | 3b 49 46 20 72 65 73 64 |CONF;end|;IF resd|
|00008a10| 20 7e 3d 20 31 20 26 20 | 45 58 49 53 54 53 28 64 | ~= 1 & |EXISTS(d|
|00008a20| 6f 73 61 29 20 54 48 45 | 4e 20 70 61 72 61 6c 20 |osa) THE|N paral |
|00008a30| 3d 20 31 3b 65 6e 64 3b | 52 45 54 55 52 4e 3b 45 |= 1;end;|RETURN;E|
|00008a40| 58 49 54 3b 43 55 45 4c | 47 53 43 52 49 3a 3b 70 |XIT;CUEL|GSCRI:;p|
|00008a50| 61 72 61 6c 20 3d 20 30 | 3b 44 4f 20 55 4e 54 49 |aral = 0|;DO UNTI|
|00008a60| 4c 20 70 61 72 61 6c 20 | 3d 20 31 3b 66 69 6c 65 |L paral |= 1;file|
|00008a70| 6e 61 6d 65 20 3d 20 27 | 73 74 6f 70 6e 65 74 27 |name = '|stopnet'|
|00008a80| 3b 64 69 72 65 63 74 6f | 72 79 20 3d 20 27 41 6d |;directo|ry = 'Am|
|00008a90| 69 74 63 70 3a 62 69 6e | 27 3b 4f 50 54 49 4f 4e |itcp:bin|';OPTION|
|00008aa0| 53 20 3d 20 27 74 69 74 | 6c 65 20 22 27 46 72 61 |S = 'tit|le "'Fra|
|00008ab0| 73 65 2e 31 33 27 22 20 | 52 65 71 50 6f 73 20 43 |se.13'" |ReqPos C|
|00008ac0| 45 4e 54 45 52 53 43 52 | 27 3b 63 6f 73 61 20 3d |ENTERSCR|';cosa =|
|00008ad0| 20 52 71 74 46 69 6c 65 | 52 65 71 28 66 69 6c 65 | RqtFile|Req(file|
|00008ae0| 6e 61 6d 65 2c 64 69 72 | 65 63 74 6f 72 79 2c 4f |name,dir|ectory,O|
|00008af0| 50 54 49 4f 4e 53 29 3b | 72 65 73 64 20 3d 20 30 |PTIONS);|resd = 0|
|00008b00| 3b 49 46 20 63 6f 73 61 | 20 3d 20 27 27 20 7c 20 |;IF cosa| = '' | |
|00008b10| 63 6f 73 61 20 3d 20 30 | 20 7c 20 7e 45 58 49 53 |cosa = 0| | ~EXIS|
|00008b20| 54 53 28 63 6f 73 61 29 | 3b 54 48 45 4e 20 44 4f |TS(cosa)|;THEN DO|
|00008b30| 3b 72 65 73 64 20 3d 20 | 72 71 74 45 61 73 79 52 |;resd = |rqtEasyR|
|00008b40| 65 71 28 46 72 61 73 65 | 2e 31 31 2c 46 72 61 73 |eq(Frase|.11,Fras|
|00008b50| 65 2e 31 32 27 20 54 69 | 74 6c 65 20 22 27 46 72 |e.12' Ti|tle "'Fr|
|00008b60| 61 73 65 2e 38 27 22 20 | 52 65 71 50 6f 73 20 43 |ase.8'" |ReqPos C|
|00008b70| 45 4e 54 45 52 53 43 52 | 27 29 3b 49 46 20 72 65 |ENTERSCR|');IF re|
|00008b80| 73 64 20 3d 20 30 20 54 | 48 45 4e 20 43 41 4c 4c |sd = 0 T|HEN CALL|
|00008b90| 20 41 42 4f 52 54 43 4f | 4e 46 3b 65 6e 64 3b 49 | ABORTCO|NF;end;I|
|00008ba0| 46 20 72 65 73 64 20 7e | 3d 20 31 20 26 20 45 58 |F resd ~|= 1 & EX|
|00008bb0| 49 53 54 53 28 63 6f 73 | 61 29 20 54 48 45 4e 20 |ISTS(cos|a) THEN |
|00008bc0| 70 61 72 61 6c 20 3d 20 | 31 3b 65 6e 64 3b 52 45 |paral = |1;end;RE|
|00008bd0| 54 55 52 4e 3b 45 58 49 | 54 3b 41 42 4f 52 54 43 |TURN;EXI|T;ABORTC|
|00008be0| 4f 4e 46 3a 3b 43 41 4c | 4c 20 43 4c 4f 53 45 28 |ONF:;CAL|L CLOSE(|
|00008bf0| 27 6e 75 63 6f 27 29 3b | 41 44 44 52 45 53 53 20 |'nuco');|ADDRESS |
|00008c00| 43 4f 4d 4d 41 4e 44 28 | 27 64 65 6c 65 74 65 20 |COMMAND(|'delete |
|00008c10| 3e 4e 49 4c 3a 20 73 3a | 6e 65 77 4e 45 54 2e 63 |>NIL: s:|newNET.c|
|00008c20| 66 67 27 29 3b 43 61 6c | 6c 20 44 45 43 49 52 28 |fg');Cal|l DECIR(|
|00008c30| 46 72 61 73 65 2e 39 29 | 3b 45 58 49 54 3b 45 52 |Frase.9)|;EXIT;ER|
|00008c40| 52 4f 52 43 4f 4e 46 3a | 3b 50 41 52 53 45 20 41 |RORCONF:|;PARSE A|
|00008c50| 52 47 20 65 6c 65 72 72 | 6f 72 3b 43 61 6c 6c 20 |RG elerr|or;Call |
|00008c60| 44 45 43 49 52 28 27 2a | 2a 2a 20 27 65 6c 65 72 |DECIR('*|** 'eler|
|00008c70| 72 6f 72 29 3b 43 61 6c | 6c 20 44 45 43 49 52 28 |ror);Cal|l DECIR(|
|00008c80| 46 72 61 73 65 2e 31 30 | 29 3b 45 58 49 54 3b 4c |Frase.10|);EXIT;L|
|00008c90| 45 45 43 4f 4e 46 49 47 | 3a 3b 45 4d 41 49 4c 20 |EECONFIG|:;EMAIL |
|00008ca0| 3d 20 27 27 3b 47 4d 54 | 49 20 3d 20 27 2b 30 31 |= '';GMT|I = '+01|
|00008cb0| 30 30 27 3b 49 4e 42 4f | 55 4e 44 20 3d 20 27 27 |00';INBO|UND = ''|
|00008cc0| 3b 4f 55 54 42 4f 55 4e | 44 3d 20 27 27 3b 4c 4f |;OUTBOUN|D= '';LO|
|00008cd0| 47 20 3d 20 27 27 3b 54 | 45 4d 50 20 3d 20 27 27 |G = '';T|EMP = ''|
|00008ce0| 3b 4c 4f 47 4c 45 56 45 | 4c 20 3d 20 27 27 3b 6e |;LOGLEVE|L = '';n|
|00008cf0| 6f 64 6f 73 20 3d 20 30 | 3b 56 44 41 59 53 20 3d |odos = 0|;VDAYS =|
|00008d00| 20 27 27 3b 54 43 50 52 | 4f 47 20 3d 20 27 27 3b | '';TCPR|OG = '';|
|00008d10| 4f 46 46 4c 49 4e 45 20 | 3d 20 27 27 3b 50 4f 50 |OFFLINE |= '';POP|
|00008d20| 53 45 52 56 45 52 20 3d | 20 27 27 3b 53 4d 54 50 |SERVER =| '';SMTP|
|00008d30| 53 45 52 56 45 52 20 3d | 20 27 27 3b 55 53 45 52 |SERVER =| '';USER|
|00008d40| 49 44 20 3d 20 27 27 3b | 55 53 45 52 50 41 53 53 |ID = '';|USERPASS|
|00008d50| 20 3d 20 27 27 3b 46 4d | 41 49 4c 45 52 20 3d 20 | = '';FM|AILER = |
|00008d60| 27 27 3b 41 55 54 4f 43 | 41 4c 4c 20 3d 20 27 27 |'';AUTOC|ALL = ''|
|00008d70| 3b 41 55 54 4f 49 4d 50 | 4f 52 54 20 3d 20 27 27 |;AUTOIMP|ORT = ''|
|00008d80| 3b 43 41 4c 4c 20 53 74 | 65 6d 52 65 61 64 28 27 |;CALL St|emRead('|
|00008d90| 73 3a 6e 65 77 4e 45 54 | 2e 63 66 67 27 2c 27 63 |s:newNET|.cfg','c|
|00008da0| 6f 6e 6c 69 73 2e 27 29 | 3b 44 6f 20 6e 6c 75 20 |onlis.')|;Do nlu |
|00008db0| 3d 20 30 20 74 6f 20 63 | 6f 6e 6c 69 73 2e 63 6f |= 0 to c|onlis.co|
|00008dc0| 75 6e 74 2d 31 3b 6c 69 | 63 6f 20 3d 20 63 6f 6e |unt-1;li|co = con|
|00008dd0| 6c 69 73 2e 6e 6c 75 3b | 49 46 20 55 50 50 45 52 |lis.nlu;|IF UPPER|
|00008de0| 28 57 4f 52 44 28 6c 69 | 63 6f 2c 31 29 29 20 3d |(WORD(li|co,1)) =|
|00008df0| 20 27 4e 4f 44 45 27 3b | 54 48 45 4e 20 44 4f 3b | 'NODE';|THEN DO;|
|00008e00| 6e 6f 64 6f 73 20 3d 20 | 6e 6f 64 6f 73 20 2b 20 |nodos = |nodos + |
|00008e10| 31 3b 6e 6f 64 6e 75 6d | 2e 6e 6f 64 6f 73 20 3d |1;nodnum|.nodos =|
|00008e20| 20 57 4f 52 44 28 6c 69 | 63 6f 2c 32 29 3b 6e 6f | WORD(li|co,2);no|
|00008e30| 64 6d 61 69 2e 6e 6f 64 | 6f 73 20 3d 20 57 4f 52 |dmai.nod|os = WOR|
|00008e40| 44 28 6c 69 63 6f 2c 33 | 29 3b 6e 6f 64 72 65 64 |D(lico,3|);nodred|
|00008e50| 2e 6e 6f 64 6f 73 20 3d | 20 57 4f 52 44 28 6c 69 |.nodos =| WORD(li|
|00008e60| 63 6f 2c 34 29 3b 6e 6f | 64 6d 65 74 2e 6e 6f 64 |co,4);no|dmet.nod|
|00008e70| 6f 73 20 3d 20 53 55 42 | 57 4f 52 44 28 6c 69 63 |os = SUB|WORD(lic|
|00008e80| 6f 2c 35 2c 35 29 3b 65 | 6e 64 3b 49 46 20 55 50 |o,5,5);e|nd;IF UP|
|00008e90| 50 45 52 28 57 4f 52 44 | 28 6c 69 63 6f 2c 31 29 |PER(WORD|(lico,1)|
|00008ea0| 29 20 3d 20 27 49 4e 42 | 4f 55 4e 44 27 20 54 48 |) = 'INB|OUND' TH|
|00008eb0| 45 4e 20 49 4e 42 4f 55 | 4e 44 20 3d 20 57 4f 52 |EN INBOU|ND = WOR|
|00008ec0| 44 28 6c 69 63 6f 2c 32 | 29 3b 49 46 20 55 50 50 |D(lico,2|);IF UPP|
|00008ed0| 45 52 28 57 4f 52 44 28 | 6c 69 63 6f 2c 31 29 29 |ER(WORD(|lico,1))|
|00008ee0| 20 3d 20 27 4f 55 54 42 | 4f 55 4e 44 27 20 54 48 | = 'OUTB|OUND' TH|
|00008ef0| 45 4e 20 4f 55 54 42 4f | 55 4e 44 20 3d 20 57 4f |EN OUTBO|UND = WO|
|00008f00| 52 44 28 6c 69 63 6f 2c | 32 29 3b 49 46 20 55 50 |RD(lico,|2);IF UP|
|00008f10| 50 45 52 28 57 4f 52 44 | 28 6c 69 63 6f 2c 31 29 |PER(WORD|(lico,1)|
|00008f20| 29 20 3d 20 27 4c 4f 47 | 27 20 54 48 45 4e 20 4c |) = 'LOG|' THEN L|
|00008f30| 4f 47 20 3d 20 57 4f 52 | 44 28 6c 69 63 6f 2c 32 |OG = WOR|D(lico,2|
|00008f40| 29 3b 49 46 20 55 50 50 | 45 52 28 57 4f 52 44 28 |);IF UPP|ER(WORD(|
|00008f50| 6c 69 63 6f 2c 31 29 29 | 20 3d 20 27 54 45 4d 50 |lico,1))| = 'TEMP|
|00008f60| 27 20 54 48 45 4e 20 54 | 45 4d 50 20 3d 20 57 4f |' THEN T|EMP = WO|
|00008f70| 52 44 28 6c 69 63 6f 2c | 32 29 3b 49 46 20 55 50 |RD(lico,|2);IF UP|
|00008f80| 50 45 52 28 57 4f 52 44 | 28 6c 69 63 6f 2c 31 29 |PER(WORD|(lico,1)|
|00008f90| 29 20 3d 20 27 4c 4f 47 | 4c 45 56 45 4c 27 20 54 |) = 'LOG|LEVEL' T|
|00008fa0| 48 45 4e 20 4c 4f 47 4c | 45 56 45 4c 20 3d 20 57 |HEN LOGL|EVEL = W|
|00008fb0| 4f 52 44 28 6c 69 63 6f | 2c 32 29 3b 49 46 20 55 |ORD(lico|,2);IF U|
|00008fc0| 50 50 45 52 28 57 4f 52 | 44 28 6c 69 63 6f 2c 31 |PPER(WOR|D(lico,1|
|00008fd0| 29 29 20 3d 20 27 44 41 | 59 53 27 20 54 48 45 4e |)) = 'DA|YS' THEN|
|00008fe0| 20 56 44 41 59 53 20 3d | 20 57 4f 52 44 28 6c 69 | VDAYS =| WORD(li|
|00008ff0| 63 6f 2c 32 29 3b 49 46 | 20 55 50 50 45 52 28 57 |co,2);IF| UPPER(W|
|00009000| 4f 52 44 28 6c 69 63 6f | 2c 31 29 29 20 3d 20 27 |ORD(lico|,1)) = '|
|00009010| 54 43 50 52 4f 47 27 20 | 54 48 45 4e 20 54 43 50 |TCPROG' |THEN TCP|
|00009020| 52 4f 47 20 3d 20 57 4f | 52 44 28 6c 69 63 6f 2c |ROG = WO|RD(lico,|
|00009030| 32 29 3b 49 46 20 55 50 | 50 45 52 28 57 4f 52 44 |2);IF UP|PER(WORD|
|00009040| 28 6c 69 63 6f 2c 31 29 | 29 20 3d 20 27 4f 4e 4c |(lico,1)|) = 'ONL|
|00009050| 49 4e 45 27 20 54 48 45 | 4e 20 4f 4e 4c 49 4e 45 |INE' THE|N ONLINE|
|00009060| 20 3d 20 57 4f 52 44 28 | 6c 69 63 6f 2c 32 29 3b | = WORD(|lico,2);|
|00009070| 49 46 20 55 50 50 45 52 | 28 57 4f 52 44 28 6c 69 |IF UPPER|(WORD(li|
|00009080| 63 6f 2c 31 29 29 20 3d | 20 27 4f 46 46 4c 49 4e |co,1)) =| 'OFFLIN|
|00009090| 45 27 20 54 48 45 4e 20 | 4f 46 46 4c 49 4e 45 20 |E' THEN |OFFLINE |
|000090a0| 3d 20 57 4f 52 44 28 6c | 69 63 6f 2c 32 29 3b 49 |= WORD(l|ico,2);I|
|000090b0| 46 20 55 50 50 45 52 28 | 57 4f 52 44 28 6c 69 63 |F UPPER(|WORD(lic|
|000090c0| 6f 2c 31 29 29 20 3d 20 | 27 45 4d 41 49 4c 27 20 |o,1)) = |'EMAIL' |
|000090d0| 54 48 45 4e 20 45 4d 41 | 49 4c 20 3d 20 57 4f 52 |THEN EMA|IL = WOR|
|000090e0| 44 28 6c 69 63 6f 2c 32 | 29 3b 49 46 20 55 50 50 |D(lico,2|);IF UPP|
|000090f0| 45 52 28 57 4f 52 44 28 | 6c 69 63 6f 2c 31 29 29 |ER(WORD(|lico,1))|
|00009100| 20 3d 20 27 50 4f 50 53 | 45 52 56 45 52 27 20 54 | = 'POPS|ERVER' T|
|00009110| 48 45 4e 20 50 4f 50 53 | 45 52 56 45 52 20 3d 20 |HEN POPS|ERVER = |
|00009120| 57 4f 52 44 28 6c 69 63 | 6f 2c 32 29 3b 49 46 20 |WORD(lic|o,2);IF |
|00009130| 55 50 50 45 52 28 57 4f | 52 44 28 6c 69 63 6f 2c |UPPER(WO|RD(lico,|
|00009140| 31 29 29 20 3d 20 27 53 | 4d 54 50 53 45 52 56 45 |1)) = 'S|MTPSERVE|
|00009150| 52 27 20 54 48 45 4e 20 | 53 4d 54 50 53 45 52 56 |R' THEN |SMTPSERV|
|00009160| 45 52 20 3d 20 57 4f 52 | 44 28 6c 69 63 6f 2c 32 |ER = WOR|D(lico,2|
|00009170| 29 3b 49 46 20 55 50 50 | 45 52 28 57 4f 52 44 28 |);IF UPP|ER(WORD(|
|00009180| 6c 69 63 6f 2c 31 29 29 | 20 3d 20 27 55 53 45 52 |lico,1))| = 'USER|
|00009190| 49 44 27 20 54 48 45 4e | 20 55 53 45 52 49 44 20 |ID' THEN| USERID |
|000091a0| 3d 20 57 4f 52 44 28 6c | 69 63 6f 2c 32 29 3b 49 |= WORD(l|ico,2);I|
|000091b0| 46 20 55 50 50 45 52 28 | 57 4f 52 44 28 6c 69 63 |F UPPER(|WORD(lic|
|000091c0| 6f 2c 31 29 29 20 3d 20 | 27 55 53 45 52 50 41 53 |o,1)) = |'USERPAS|
|000091d0| 53 27 20 54 48 45 4e 20 | 55 53 45 52 50 41 53 53 |S' THEN |USERPASS|
|000091e0| 20 3d 20 57 4f 52 44 28 | 6c 69 63 6f 2c 32 29 3b | = WORD(|lico,2);|
|000091f0| 49 46 20 55 50 50 45 52 | 28 57 4f 52 44 28 6c 69 |IF UPPER|(WORD(li|
|00009200| 63 6f 2c 31 29 29 20 3d | 20 27 46 4d 41 49 4c 45 |co,1)) =| 'FMAILE|
|00009210| 52 27 20 54 48 45 4e 20 | 46 4d 41 49 4c 45 52 20 |R' THEN |FMAILER |
|00009220| 3d 20 57 4f 52 44 28 6c | 69 63 6f 2c 32 29 3b 49 |= WORD(l|ico,2);I|
|00009230| 46 20 55 50 50 45 52 28 | 57 4f 52 44 28 6c 69 63 |F UPPER(|WORD(lic|
|00009240| 6f 2c 31 29 29 20 3d 20 | 27 41 55 54 4f 43 41 4c |o,1)) = |'AUTOCAL|
|00009250| 4c 27 20 54 48 45 4e 20 | 61 75 74 6f 6c 6c 61 6d |L' THEN |autollam|
|00009260| 61 72 20 3d 20 31 3b 49 | 46 20 55 50 50 45 52 28 |ar = 1;I|F UPPER(|
|00009270| 57 4f 52 44 28 6c 69 63 | 6f 2c 31 29 29 20 3d 20 |WORD(lic|o,1)) = |
|00009280| 27 47 4d 54 27 20 54 48 | 45 4e 20 47 4d 54 49 20 |'GMT' TH|EN GMTI |
|00009290| 3d 20 57 4f 52 44 28 6c | 69 63 6f 2c 32 29 3b 49 |= WORD(l|ico,2);I|
|000092a0| 46 20 55 50 50 45 52 28 | 57 4f 52 44 28 6c 69 63 |F UPPER(|WORD(lic|
|000092b0| 6f 2c 31 29 29 20 3d 20 | 27 41 55 54 4f 49 4d 50 |o,1)) = |'AUTOIMP|
|000092c0| 4f 52 54 27 20 54 48 45 | 4e 20 61 75 74 6f 69 6d |ORT' THE|N autoim|
|000092d0| 70 6f 72 74 61 72 20 3d | 20 31 3b 65 6e 64 3b 49 |portar =| 1;end;I|
|000092e0| 46 20 6c 65 6e 67 74 68 | 28 47 4d 54 49 29 20 7e |F length|(GMTI) ~|
|000092f0| 3d 20 35 20 54 48 45 4e | 20 43 41 4c 4c 20 45 52 |= 5 THEN| CALL ER|
|00009300| 52 4f 52 43 4f 4e 46 28 | 27 47 4d 54 27 29 3b 49 |RORCONF(|'GMT');I|
|00009310| 46 20 6e 6f 64 6f 73 20 | 3d 20 30 20 54 48 45 4e |F nodos |= 0 THEN|
|00009320| 20 43 41 4c 4c 20 45 52 | 52 4f 52 43 4f 4e 46 28 | CALL ER|RORCONF(|
|00009330| 27 4e 4f 44 45 53 27 29 | 3b 49 46 20 49 4e 42 4f |'NODES')|;IF INBO|
|00009340| 55 4e 44 20 3d 20 27 27 | 20 54 48 45 4e 20 43 41 |UND = ''| THEN CA|
|00009350| 4c 4c 20 45 52 52 4f 52 | 43 4f 4e 46 28 27 49 4e |LL ERROR|CONF('IN|
|00009360| 42 4f 55 4e 44 27 29 3b | 49 46 20 4f 55 54 42 4f |BOUND');|IF OUTBO|
|00009370| 55 4e 44 20 3d 20 27 27 | 20 54 48 45 4e 20 43 41 |UND = ''| THEN CA|
|00009380| 4c 4c 20 45 52 52 4f 52 | 43 4f 4e 46 28 27 4f 55 |LL ERROR|CONF('OU|
|00009390| 54 42 4f 55 4e 44 27 29 | 3b 49 46 20 4c 4f 47 20 |TBOUND')|;IF LOG |
|000093a0| 3d 20 27 27 20 54 48 45 | 4e 20 43 41 4c 4c 20 45 |= '' THE|N CALL E|
|000093b0| 52 52 4f 52 43 4f 4e 46 | 28 27 4c 4f 47 46 49 4c |RRORCONF|('LOGFIL|
|000093c0| 45 27 29 3b 49 46 20 54 | 45 4d 50 20 3d 20 27 27 |E');IF T|EMP = ''|
|000093d0| 20 54 48 45 4e 20 43 41 | 4c 4c 20 45 52 52 4f 52 | THEN CA|LL ERROR|
|000093e0| 43 4f 4e 46 28 27 54 45 | 4d 50 20 44 49 52 27 29 |CONF('TE|MP DIR')|
|000093f0| 3b 49 46 20 4c 4f 47 4c | 45 56 45 4c 20 3d 20 27 |;IF LOGL|EVEL = '|
|00009400| 27 20 54 48 45 4e 20 43 | 41 4c 4c 20 45 52 52 4f |' THEN C|ALL ERRO|
|00009410| 52 43 4f 4e 46 28 27 4c | 4f 47 4c 45 56 45 4c 27 |RCONF('L|OGLEVEL'|
|00009420| 29 3b 49 46 20 56 44 41 | 59 53 20 3d 20 27 27 20 |);IF VDA|YS = '' |
|00009430| 54 48 45 4e 20 43 41 4c | 4c 20 45 52 52 4f 52 43 |THEN CAL|L ERRORC|
|00009440| 4f 4e 46 28 27 53 54 4f | 52 49 4e 47 20 44 41 59 |ONF('STO|RING DAY|
|00009450| 53 27 29 3b 49 46 20 54 | 43 50 52 4f 47 20 3d 20 |S');IF T|CPROG = |
|00009460| 27 27 20 54 48 45 4e 20 | 43 41 4c 4c 20 45 52 52 |'' THEN |CALL ERR|
|00009470| 4f 52 43 4f 4e 46 28 27 | 54 43 50 20 50 52 4f 47 |ORCONF('|TCP PROG|
|00009480| 52 41 4d 27 29 3b 49 46 | 20 4f 4e 4c 49 4e 45 20 |RAM');IF| ONLINE |
|00009490| 3d 20 27 27 20 54 48 45 | 4e 20 43 41 4c 4c 20 45 |= '' THE|N CALL E|
|000094a0| 52 52 4f 52 43 4f 4e 46 | 28 27 4f 4e 4c 49 4e 45 |RRORCONF|('ONLINE|
|000094b0| 20 53 43 52 49 50 54 27 | 29 3b 49 46 20 4f 46 46 | SCRIPT'|);IF OFF|
|000094c0| 4c 49 4e 45 20 3d 20 27 | 27 20 54 48 45 4e 20 43 |LINE = '|' THEN C|
|000094d0| 41 4c 4c 20 45 52 52 4f | 52 43 4f 4e 46 28 27 4f |ALL ERRO|RCONF('O|
|000094e0| 46 46 4c 49 4e 45 20 53 | 43 52 49 50 54 27 29 3b |FFLINE S|CRIPT');|
|000094f0| 49 46 20 45 4d 41 49 4c | 20 3d 20 27 27 20 54 48 |IF EMAIL| = '' TH|
|00009500| 45 4e 20 43 41 4c 4c 20 | 45 52 52 4f 52 43 4f 4e |EN CALL |ERRORCON|
|00009510| 46 28 27 45 4d 41 49 4c | 20 41 44 44 52 45 53 53 |F('EMAIL| ADDRESS|
|00009520| 27 29 3b 49 46 20 50 4f | 50 53 45 52 56 45 52 20 |');IF PO|PSERVER |
|00009530| 3d 20 27 27 20 54 48 45 | 4e 20 43 41 4c 4c 20 45 |= '' THE|N CALL E|
|00009540| 52 52 4f 52 43 4f 4e 46 | 28 27 50 4f 50 33 2d 53 |RRORCONF|('POP3-S|
|00009550| 45 52 56 45 52 27 29 3b | 49 46 20 53 4d 54 50 53 |ERVER');|IF SMTPS|
|00009560| 45 52 56 45 52 20 3d 20 | 27 27 20 54 48 45 4e 20 |ERVER = |'' THEN |
|00009570| 43 41 4c 4c 20 45 52 52 | 4f 52 43 4f 4e 46 28 27 |CALL ERR|ORCONF('|
|00009580| 53 4d 54 50 2d 53 45 52 | 56 45 52 27 29 3b 49 46 |SMTP-SER|VER');IF|
|00009590| 20 55 53 45 52 49 44 20 | 3d 20 27 27 20 54 48 45 | USERID |= '' THE|
|000095a0| 4e 20 43 41 4c 4c 20 45 | 52 52 4f 52 43 4f 4e 46 |N CALL E|RRORCONF|
|000095b0| 28 27 75 73 65 72 49 44 | 27 29 3b 49 46 20 55 53 |('userID|');IF US|
|000095c0| 45 52 50 41 53 53 20 3d | 20 27 27 20 54 48 45 4e |ERPASS =| '' THEN|
|000095d0| 20 43 41 4c 4c 20 45 52 | 52 4f 52 43 4f 4e 46 28 | CALL ER|RORCONF(|
|000095e0| 27 55 53 45 52 50 41 53 | 53 27 29 3b 49 46 20 46 |'USERPAS|S');IF F|
|000095f0| 4d 41 49 4c 45 52 20 3d | 20 27 27 20 54 48 45 4e |MAILER =| '' THEN|
|00009600| 20 43 41 4c 4c 20 45 52 | 52 4f 52 43 4f 4e 46 28 | CALL ER|RORCONF(|
|00009610| 27 46 4d 41 49 4c 45 52 | 27 29 3b 52 45 54 55 52 |'FMAILER|');RETUR|
|00009620| 4e 3b 45 58 49 54 3b 66 | 69 6c 65 70 61 72 74 3a |N;EXIT;f|ilepart:|
|00009630| 3b 50 41 52 53 45 20 41 | 52 47 20 64 69 72 65 63 |;PARSE A|RG direc|
|00009640| 74 6f 72 69 6f 3b 43 41 | 4c 4c 20 73 70 6c 69 74 |torio;CA|LL split|
|00009650| 70 61 74 68 28 64 69 72 | 65 63 74 6f 72 69 6f 2c |path(dir|ectorio,|
|00009660| 22 70 61 7a 7a 2e 22 29 | 3b 72 65 74 6f 72 6e 6f |"pazz.")|;retorno|
|00009670| 20 3d 20 70 61 7a 7a 2e | 46 69 6c 65 50 61 72 74 | = pazz.|FilePart|
|00009680| 3b 52 45 54 55 52 4e 20 | 72 65 74 6f 72 6e 6f 3b |;RETURN |retorno;|
|00009690| 45 58 49 54 3b 70 61 74 | 68 70 61 72 74 3a 3b 50 |EXIT;pat|hpart:;P|
|000096a0| 41 52 53 45 20 41 52 47 | 20 64 69 72 65 63 74 6f |ARSE ARG| directo|
|000096b0| 72 69 6f 3b 43 41 4c 4c | 20 73 70 6c 69 74 70 61 |rio;CALL| splitpa|
|000096c0| 74 68 28 64 69 72 65 63 | 74 6f 72 69 6f 2c 22 70 |th(direc|torio,"p|
|000096d0| 61 7a 7a 2e 22 29 3b 72 | 65 74 6f 72 6e 6f 20 3d |azz.");r|etorno =|
|000096e0| 20 70 61 7a 7a 2e 44 69 | 72 50 61 72 74 3b 52 45 | pazz.Di|rPart;RE|
|000096f0| 54 55 52 4e 20 72 65 74 | 6f 72 6e 6f 3b 45 58 49 |TURN ret|orno;EXI|
|00009700| 54 3b 44 45 43 49 52 3a | 3b 70 61 72 73 65 20 61 |T;DECIR:|;parse a|
|00009710| 72 67 20 6c 6f 73 61 3b | 6c 6f 73 61 79 20 3d 20 |rg losa;|losay = |
|00009720| 6c 6f 73 61 7c 7c 65 6e | 74 65 72 3b 43 61 6c 6c |losa||en|ter;Call|
|00009730| 20 57 72 69 74 65 63 68 | 28 73 74 64 6f 75 74 2c | Writech|(stdout,|
|00009740| 6c 6f 73 61 79 29 3b 52 | 45 54 55 52 4e 3b 45 58 |losay);R|ETURN;EX|
|00009750| 49 54 3b 65 72 72 6f 72 | 61 72 67 3a 3b 43 61 6c |IT;error|arg:;Cal|
|00009760| 6c 20 44 45 43 49 52 28 | 27 45 52 52 4f 52 3a 20 |l DECIR(|'ERROR: |
|00009770| 62 61 64 20 61 72 67 75 | 6d 65 6e 74 73 2e 2e 2e |bad argu|ments...|
|00009780| 27 29 3b 45 58 49 54 3b | 48 41 4c 54 3a 3b 43 61 |');EXIT;|HALT:;Ca|
|00009790| 6c 6c 20 44 45 43 49 52 | 28 27 2a 2a 2a 20 42 52 |ll DECIR|('*** BR|
|000097a0| 45 41 4b 27 29 3b 43 41 | 4c 4c 20 53 41 4c 49 52 |EAK');CA|LL SALIR|
|000097b0| 3b 42 52 45 41 4b 5f 43 | 3a 3b 43 61 6c 6c 20 44 |;BREAK_C|:;Call D|
|000097c0| 45 43 49 52 28 27 2a 2a | 2a 20 42 52 45 41 4b 27 |ECIR('**|* BREAK'|
|000097d0| 29 3b 43 41 4c 4c 20 53 | 41 4c 49 52 3b 42 52 45 |);CALL S|ALIR;BRE|
|000097e0| 41 4b 5f 44 3a 3b 43 61 | 6c 6c 20 44 45 43 49 52 |AK_D:;Ca|ll DECIR|
|000097f0| 28 27 2a 2a 2a 20 42 52 | 45 41 4b 27 29 3b 43 41 |('*** BR|EAK');CA|
|00009800| 4c 4c 20 53 41 4c 49 52 | 3b 42 52 45 41 4b 5f 45 |LL SALIR|;BREAK_E|
|00009810| 3a 3b 43 61 6c 6c 20 44 | 45 43 49 52 28 27 2a 2a |:;Call D|ECIR('**|
|00009820| 2a 20 42 52 45 41 4b 27 | 29 3b 43 41 4c 4c 20 53 |* BREAK'|);CALL S|
|00009830| 41 4c 49 52 3b 42 52 45 | 41 4b 5f 46 3a 3b 43 61 |ALIR;BRE|AK_F:;Ca|
|00009840| 6c 6c 20 44 45 43 49 52 | 28 27 2a 2a 2a 20 42 52 |ll DECIR|('*** BR|
|00009850| 45 41 4b 27 29 3b 43 41 | 4c 4c 20 53 41 4c 49 52 |EAK');CA|LL SALIR|
|00009860| 3b 53 41 4c 49 52 3a 3b | 43 61 6c 6c 20 44 45 43 |;SALIR:;|Call DEC|
|00009870| 49 52 28 27 2a 2a 20 45 | 4e 44 20 2a 2a 27 29 3b |IR('** E|ND **');|
|00009880| 45 58 49 54 0a 2f 2a 20 | 4f 72 69 67 69 6e 61 6c |EXIT./* |Original|
|00009890| 20 73 63 72 69 70 74 3a | 20 31 36 36 33 20 6c 69 | script:| 1663 li|
|000098a0| 6e 65 73 2c 20 34 31 32 | 30 33 20 62 79 74 65 73 |nes, 412|03 bytes|
|000098b0| 20 2a 2f 0a 00 00 00 00 | 00 00 03 f2             | */.....|....    |
+--------+-------------------------+-------------------------+--------+--------+